Generate and return the Forward Fourier Transform (a.k.a. Fourier Analysis) of a periodic sequence of type complex or real of arbitrary kind parameter. More...

Detailed Description

Generate and return the Forward Fourier Transform (a.k.a. Fourier Analysis) of a periodic sequence of type complex or real of arbitrary kind parameter.

See the documentation of pm_fftnr for more details.

Parameters

[in]

data

: The input contiguous vector of arbitrary size of,

type complex of kind any supported by the processor (e.g., CK, CK32, CK64, or CK128),
type real of kind any supported by the processor (e.g., RK, RK32, RK64, or RK128),

containing the periodic sequence whose FFT is to be computed.

Returns: fft : The output vector of size getExpNext(size(data), 2) of the same type and kind as the input data, containing the FFT result.

Possible calling interfaces ⛓

: use pm_fftnr, only: getFFTF

type_of(data) :: fft(1 : getExpNext(size(data)))

fft(:) = getFFTF(data(:))

pm_fftnr::getFFTF
Generate and return the Forward Fourier Transform (a.k.a. Fourier Analysis) of a periodic sequence of...
Definition: pm_fftnr.F90:250

pm_fftnr
This module contains procedures and generic interfaces for computing the Discrete Fourier Transform o...
Definition: pm_fftnr.F90:184

Remarks: The procedures under discussion are impure.

Note: This functional generic interface is simply a more flexible but slower wrapper around the subroutine generic interface setFFTF.
As such, this functional interface can be significantly slower than the corresponding subroutine interface.

See also: getFFTF
getFFTR
getFFTI
setFFTF
setFFTR
setFFTI

Example usage ⛓

: 1program example

2

3 use pm_kind, only: SK, IK, LK

4 use pm_io, only: display_type

5 use pm_fftnr, only: getFFTF, getFFTI

6 use pm_distUnif, only: getUnifRand

7 use pm_mathCompare, only: isClose

8 use pm_err, only: setAsserted

9

10 implicit none

11

12 integer(IK) :: i

13 integer(IK) :: lenData

14 type(display_type) :: disp

15 disp = display_type(file = "main.out.F90")

16

17 do i = 1, 5

18 block

19 use pm_kind, only: TKC => CKS

20 real(TKC) :: reltol

21 complex(TKC), allocatable :: data(:), atad(:)

22 call disp%show("lenData = getUnifRand(5, 100)")

23 lenData = getUnifRand(5, 100)

24 call disp%show("lenData")

25 call disp%show( lenData )

26 call disp%show("data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)")

27 data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

28 call disp%show("data")

29 call disp%show( data )

30 call disp%skip()

31 call disp%show("atad = getFFTI(getFFTF(data))")

32 atad = getFFTI(getFFTF(data))

33 call disp%show("atad")

34 call disp%show( atad )

35 call disp%show("reltol = sqrt(epsilon(1._TKC))")

36 reltol = sqrt(epsilon(1._TKC))

37 call disp%show("reltol")

38 call disp%show( reltol )

39 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")

40 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )

41 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")

42 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

43 call disp%skip()

44 end block

45

46 block

47 use pm_kind, only: TKC => CKD

48 real(TKC) :: reltol

49 complex(TKC), allocatable :: data(:), atad(:)

50 call disp%show("lenData = getUnifRand(5, 100)")

51 lenData = getUnifRand(5, 100)

52 call disp%show("lenData")

53 call disp%show( lenData )

54 call disp%show("data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)")

55 data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

56 call disp%show("data")

57 call disp%show( data )

58 call disp%skip()

59 call disp%show("atad = getFFTI(getFFTF(data))")

60 atad = getFFTI(getFFTF(data))

61 call disp%show("atad")

62 call disp%show( atad )

63 call disp%show("reltol = sqrt(epsilon(1._TKC))")

64 reltol = sqrt(epsilon(1._TKC))

65 call disp%show("reltol")

66 call disp%show( reltol )

67 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")

68 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )

69 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")

70 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

71 call disp%skip()

72 end block

73

74 block

75 use pm_kind, only: TKC => CKH

76 real(TKC) :: reltol

77 complex(TKC), allocatable :: data(:), atad(:)

78 call disp%show("lenData = getUnifRand(5, 100)")

79 lenData = getUnifRand(5, 100)

80 call disp%show("lenData")

81 call disp%show( lenData )

82 call disp%show("data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)")

83 data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

84 call disp%show("data")

85 call disp%show( data )

86 call disp%skip()

87 call disp%show("atad = getFFTI(getFFTF(data))")

88 atad = getFFTI(getFFTF(data))

89 call disp%show("atad")

90 call disp%show( atad )

91 call disp%show("reltol = sqrt(epsilon(1._TKC))")

92 reltol = sqrt(epsilon(1._TKC))

93 call disp%show("reltol")

94 call disp%show( reltol )

95 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")

96 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )

97 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")

98 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

99 call disp%skip()

100 end block

101

102 block

103 use pm_kind, only: TKC => RKS

104 real(TKC) :: reltol

105 real(TKC), allocatable :: data(:), atad(:)

106 call disp%show("lenData = getUnifRand(5, 100)")

107 lenData = getUnifRand(5, 100)

108 call disp%show("lenData")

109 call disp%show( lenData )

110 call disp%show("data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)")

111 data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

112 call disp%show("data")

113 call disp%show( data )

114 call disp%skip()

115 call disp%show("atad = getFFTI(getFFTF(data))")

116 atad = getFFTI(getFFTF(data))

117 call disp%show("atad")

118 call disp%show( atad )

119 call disp%show("reltol = sqrt(epsilon(1._TKC))")

120 reltol = sqrt(epsilon(1._TKC))

121 call disp%show("reltol")

122 call disp%show( reltol )

123 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")

124 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )

125 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")

126 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

127 call disp%skip()

128 end block

129

130 block

131 use pm_kind, only: TKC => RKD

132 real(TKC) :: reltol

133 real(TKC), allocatable :: data(:), atad(:)

134 call disp%show("lenData = getUnifRand(5, 100)")

135 lenData = getUnifRand(5, 100)

136 call disp%show("lenData")

137 call disp%show( lenData )

138 call disp%show("data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)")

139 data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

140 call disp%show("data")

141 call disp%show( data )

142 call disp%skip()

143 call disp%show("atad = getFFTI(getFFTF(data))")

144 atad = getFFTI(getFFTF(data))

145 call disp%show("atad")

146 call disp%show( atad )

147 call disp%show("reltol = sqrt(epsilon(1._TKC))")

148 reltol = sqrt(epsilon(1._TKC))

149 call disp%show("reltol")

150 call disp%show( reltol )

151 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")

152 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )

153 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")

154 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

155 call disp%skip()

156 end block

157

158 block

159 use pm_kind, only: TKC => RKH

160 real(TKC) :: reltol

161 real(TKC), allocatable :: data(:), atad(:)

162 call disp%show("lenData = getUnifRand(5, 100)")

163 lenData = getUnifRand(5, 100)

164 call disp%show("lenData")

165 call disp%show( lenData )

166 call disp%show("data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)")

167 data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

168 call disp%show("data")

169 call disp%show( data )

170 call disp%skip()

171 call disp%show("atad = getFFTI(getFFTF(data))")

172 atad = getFFTI(getFFTF(data))

173 call disp%show("atad")

174 call disp%show( atad )

175 call disp%show("reltol = sqrt(epsilon(1._TKC))")

176 reltol = sqrt(epsilon(1._TKC))

177 call disp%show("reltol")

178 call disp%show( reltol )

179 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")

180 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )

181 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")

182 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

183 call disp%skip()

184 end block

185 end do

186

187end program example

pm_distUnif::getUnifRand
Generate and return a scalar or a contiguous array of rank 1 of length s1 of randomly uniformly distr...
Definition: pm_distUnif.F90:4150

pm_err::setAsserted
Verify the input assertion holds and if it does not, print the (optional) input message on stdout and...
Definition: pm_err.F90:735

pm_err::show
Generate and return an object of type stop_type with the user-specified input attributes.
Definition: pm_err.F90:1618

pm_fftnr::getFFTI
Generate and return the Inverse (normalized by 2 / size(data)) Fourier Transform of a periodic sequen...
Definition: pm_fftnr.F90:428

pm_io::skip
This is a generic method of the derived type display_type with pass attribute.
Definition: pm_io.F90:11508

pm_mathCompare::isClose
Generate and return .true. if the two input values are sufficiently close to each other within the sp...
Definition: pm_mathCompare.F90:535

pm_distUnif
This module contains classes and procedures for computing various statistical quantities related to t...
Definition: pm_distUnif.F90:274

pm_err
This module contains classes and procedures for reporting and handling errors.
Definition: pm_err.F90:52

pm_io
This module contains classes and procedures for input/output (IO) or generic display operations on st...
Definition: pm_io.F90:252

pm_io::disp
type(display_type) disp
This is a scalar module variable an object of type display_type for general display.
Definition: pm_io.F90:11393

pm_kind
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
Definition: pm_kind.F90:268

pm_kind::LK
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
Definition: pm_kind.F90:541

pm_kind::CKH
integer, parameter CKH
The scalar integer constant of intrinsic default kind, representing the highest-precision complex kin...
Definition: pm_kind.F90:843

pm_kind::CKS
integer, parameter CKS
The single-precision complex kind in Fortran mode. On most platforms, this is a 32-bit real kind.
Definition: pm_kind.F90:570

pm_kind::IK
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
Definition: pm_kind.F90:540

pm_kind::CKD
integer, parameter CKD
The double precision complex kind in Fortran mode. On most platforms, this is a 64-bit real kind.
Definition: pm_kind.F90:571

pm_kind::RKD
integer, parameter RKD
The double precision real kind in Fortran mode. On most platforms, this is an 64-bit real kind.
Definition: pm_kind.F90:568

pm_kind::SK
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
Definition: pm_kind.F90:539

pm_kind::RKH
integer, parameter RKH
The scalar integer constant of intrinsic default kind, representing the highest-precision real kind t...
Definition: pm_kind.F90:858

pm_kind::RKS
integer, parameter RKS
The single-precision real kind in Fortran mode. On most platforms, this is an 32-bit real kind.
Definition: pm_kind.F90:567

pm_mathCompare
This module contains the procedures and interfaces for evaluating the relative or absolute proximity ...
Definition: pm_mathCompare.F90:205

pm_io::display_type
Generate and return an object of type display_type.
Definition: pm_io.F90:10282

Example Unix compile command via Intel ifort compiler ⛓
1#!/usr/bin/env sh

2rm main.exe

3ifort -fpp -standard-semantics -O3 -Wl,-rpath,../../../lib -I../../../inc main.F90 ../../../lib/libparamonte* -o main.exe

4./main.exe

Example Windows Batch compile command via Intel ifort compiler ⛓
1del main.exe

2set PATH=..\..\..\lib;%PATH%

3ifort /fpp /standard-semantics /O3 /I:..\..\..\include main.F90 ..\..\..\lib\libparamonte*.lib /exe:main.exe

4main.exe

Example Unix / MinGW compile command via GNU gfortran compiler ⛓
1#!/usr/bin/env sh

2rm main.exe

3gfortran -cpp -ffree-line-length-none -O3 -Wl,-rpath,../../../lib -I../../../inc main.F90 ../../../lib/libparamonte* -o main.exe

4./main.exe

Example output ⛓
1lenData = getUnifRand(5, 100)

2lenData

3+47

4data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

5data

6(+1.78943658, +0.812899232), (+1.07032287, +0.428997755), (+1.39765859, +0.202153504), (+1.76559234, +0.329259276), (+1.82775736, +0.649418354), (+1.53108597, +0.823499620), (+1.72637975, +0.904307246), (+1.67105031, +0.505100310), (+1.03750968, +0.446102619E-1), (+1.41778541, +0.631042719), (+1.86853218, +0.673184216), (+1.13576066, +0.607546151), (+1.43355966, +0.933148444), (+1.62223053, +0.868989766), (+1.46638131, +0.787040055), (+1.41279292, +0.646235108), (+1.30341840, +0.793664277), (+1.23798585, +0.170786083), (+1.45158124, +0.567948818), (+1.67170453, +0.960130513), (+1.85416138, +0.175609171), (+1.30360663, +0.393301964), (+1.60064769, +0.941520572), (+1.94019341, +0.512574136), (+1.38385630, +0.321312249), (+1.13901305, +0.387789905), (+1.32610142, +0.996015847), (+1.66471386, +0.278929949), (+1.83620858, +0.220939398), (+1.22276473, +0.134651482), (+1.09540796, +0.256092310), (+1.86048269, +0.158781409), (+1.34106696, +0.729709327), (+1.56175554, +0.129063547), (+1.97686791, +0.397351921), (+1.04227686, +0.336410224), (+1.64823687, +0.532326281), (+1.03716564, +0.800835907), (+1.10655475, +0.611627042), (+1.90427530, +0.337797761), (+1.65811062, +0.788459837), (+1.23320270, +0.102059841), (+1.05336571, +0.516626537), (+1.44266963, +0.683645010), (+1.39206719, +0.746436298), (+1.02058959, +0.312090874), (+1.56814003, +0.208980799)

7

8atad = getFFTI(getFFTF(data))

9atad

10(+1.78943658, +0.812899113), (+1.07032275, +0.428997725), (+1.39765859, +0.202153444), (+1.76559186, +0.329259217), (+1.82775760, +0.649418294), (+1.53108597, +0.823499560), (+1.72637975, +0.904307127), (+1.67105031, +0.505100131), (+1.03750992, +0.446102917E-1), (+1.41778517, +0.631042719), (+1.86853218, +0.673184156), (+1.13576055, +0.607546031), (+1.43356001, +0.933148444), (+1.62223029, +0.868989766), (+1.46638143, +0.787039995), (+1.41279268, +0.646235228), (+1.30341840, +0.793664277), (+1.23798573, +0.170786053), (+1.45158148, +0.567948759), (+1.67170453, +0.960130334), (+1.85416162, +0.175609142), (+1.30360639, +0.393301845), (+1.60064781, +0.941520452), (+1.94019341, +0.512574017), (+1.38385630, +0.321312249), (+1.13901305, +0.387789905), (+1.32610154, +0.996015668), (+1.66471386, +0.278929949), (+1.83620882, +0.220939517), (+1.22276449, +0.134651452), (+1.09540796, +0.256092310), (+1.86048245, +0.158781350), (+1.34106708, +0.729709148), (+1.56175542, +0.129063457), (+1.97686815, +0.397351801), (+1.04227710, +0.336410165), (+1.64823699, +0.532326281), (+1.03716564, +0.800835848), (+1.10655487, +0.611626863), (+1.90427542, +0.337797672), (+1.65811062, +0.788459778), (+1.23320270, +0.102059871), (+1.05336571, +0.516626477), (+1.44266987, +0.683644831), (+1.39206731, +0.746436298), (+1.02058959, +0.312090814), (+1.56814015, +0.208980918), (+0.178813934E-6, +0.298023224E-7), (+0.596046448E-7, -0.596046448E-7), (+0.119209290E-6, +0.745058060E-8), (+0.298023224E-6, +0.119209290E-6), (+0.298023224E-6, +0.327825546E-6), (+0.119209290E-6, -0.894069672E-7), (+0.00000000, -0.149011612E-7), (+0.357627869E-6, +0.894069672E-7), (+0.00000000, +0.00000000), (+0.596046448E-7, -0.104308128E-6), (+0.238418579E-6, -0.447034836E-7), (+0.238418579E-6, +0.298023224E-7), (+0.298023224E-6, +0.193715096E-6), (+0.536441803E-6, -0.238418579E-6), (+0.178813934E-6, -0.216066837E-6), (+0.298023224E-6, -0.119209290E-6), (+0.00000000, +0.596046448E-7)

11reltol = sqrt(epsilon(1._TKC))

12reltol

13+0.345266977E-3

14isClose(data, atad(1:size(data)), reltol = reltol)

15T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

16call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

17

18lenData = getUnifRand(5, 100)

19lenData

20+34

21data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

22data

23(+1.9199170399875776, +0.87611350816913380), (+1.1019232625319773, +0.57981286992584469), (+1.8051955559528423, +0.16719506684726015), (+1.1978727027505833, +0.20176819646804411), (+1.2269625632084744, +0.47910474286533333), (+1.2133581331556162, +0.94818298412600033E-2), (+1.1552990605713247, +0.18002377790211899), (+1.7479752856114765, +0.83571955257626396E-1), (+1.6575416831033092, +0.41746013979506169), (+1.3282965975421308, +0.68211188718848925), (+1.6765911790975236, +0.41156018690835450), (+1.3430325986274876, +0.78313973491305044), (+1.4965486236669157, +0.89014449287337505), (+1.4481803102733890, +0.91415963158501823), (+1.2629890031095303, +0.14843169320966054), (+1.8767345450370163, +0.35284075331205500), (+1.5749020875224558, +0.59035305012486683), (+1.1908117049358893, +0.82703827625021997), (+1.9355393088418205, +0.63942814356867905), (+1.3535971290011029, +0.53877546265507748), (+1.4466318171093193, +0.88546790895862859), (+1.5445114410485625, +0.45366849364218975E-1), (+1.3901654732291948, +0.42337928755071474E-1), (+1.3205902729653878, +0.94518987718191039), (+1.7467578277287035, +0.29895644658459319), (+1.6776774936867169, +0.21540309710653804), (+1.6360771761205246, +0.95447627077392938), (+1.2393049712199877, +0.87044765934164126), (+1.2446951131502613, +0.15719682324284434), (+1.8063266865969405, +0.59723723707496301), (+1.5442544260239885, +0.49660338393520764), (+1.2354507925306870, +0.55350815433840084), (+1.5267415081911415, +0.91838277628835274), (+1.1667458328384432, +0.96796570298593732)

24

25atad = getFFTI(getFFTF(data))

26atad

27(+1.9199170399875778, +0.87611350816913380), (+1.1019232625319773, +0.57981286992584480), (+1.8051955559528419, +0.16719506684726027), (+1.1978727027505833, +0.20176819646804439), (+1.2269625632084744, +0.47910474286533333), (+1.2133581331556165, +0.94818298412600727E-2), (+1.1552990605713247, +0.18002377790211904), (+1.7479752856114765, +0.83571955257626396E-1), (+1.6575416831033096, +0.41746013979506169), (+1.3282965975421310, +0.68211188718848947), (+1.6765911790975232, +0.41156018690835472), (+1.3430325986274876, +0.78313973491305067), (+1.4965486236669157, +0.89014449287337516), (+1.4481803102733886, +0.91415963158501856), (+1.2629890031095299, +0.14843169320966076), (+1.8767345450370159, +0.35284075331205539), (+1.5749020875224562, +0.59035305012486661), (+1.1908117049358893, +0.82703827625021997), (+1.9355393088418205, +0.63942814356867839), (+1.3535971290011029, +0.53877546265507714), (+1.4466318171093198, +0.88546790895862837), (+1.5445114410485625, +0.45366849364218906E-1), (+1.3901654732291946, +0.42337928755071155E-1), (+1.3205902729653878, +0.94518987718191005), (+1.7467578277287039, +0.29895644658459308), (+1.6776774936867169, +0.21540309710653804), (+1.6360771761205246, +0.95447627077392849), (+1.2393049712199877, +0.87044765934164070), (+1.2446951131502613, +0.15719682324284412), (+1.8063266865969405, +0.59723723707496279), (+1.5442544260239885, +0.49660338393520692), (+1.2354507925306870, +0.55350815433840039), (+1.5267415081911417, +0.91838277628835274), (+1.1667458328384428, +0.96796570298593732), (+0.66613381477509392E-15, -0.15265566588595902E-15), (+0.11102230246251565E-15, -0.26367796834847468E-15), (+0.11102230246251565E-15, -0.27755575615628914E-16), (-0.44408920985006262E-15, -0.15265566588595902E-15), (+0.33306690738754696E-15, -0.41633363423443370E-16), (+0.11102230246251565E-15, +0.0000000000000000), (+0.22204460492503131E-15, -0.27755575615628914E-16), (-0.22204460492503131E-15, -0.16653345369377348E-15), (+0.55511151231257827E-15, -0.27755575615628914E-16), (+0.33306690738754696E-15, -0.55511151231257827E-16), (+0.0000000000000000, -0.22204460492503131E-15), (+0.11102230246251565E-15, -0.44408920985006262E-15), (+0.66613381477509392E-15, -0.11102230246251565E-15), (+0.44408920985006262E-15, -0.55511151231257827E-16), (-0.11102230246251565E-15, +0.16653345369377348E-15), (-0.33306690738754696E-15, +0.0000000000000000), (+0.33306690738754696E-15, +0.49960036108132044E-15), (-0.11102230246251565E-15, +0.16653345369377348E-15), (-0.11102230246251565E-15, +0.22204460492503131E-15), (-0.33306690738754696E-15, +0.15265566588595902E-15), (+0.11102230246251565E-15, +0.34694469519536142E-15), (+0.0000000000000000, +0.22204460492503131E-15), (+0.33306690738754696E-15, +0.83266726846886741E-16), (-0.11102230246251565E-15, +0.34694469519536142E-15), (+0.11102230246251565E-15, +0.66613381477509392E-15), (+0.11102230246251565E-15, +0.44408920985006262E-15), (+0.33306690738754696E-15, +0.22204460492503131E-15), (-0.11102230246251565E-15, +0.33306690738754696E-15), (+0.11102230246251565E-15, +0.72164496600635175E-15), (+0.44408920985006262E-15, +0.49960036108132044E-15)

28reltol = sqrt(epsilon(1._TKC))

29reltol

30+0.14901161193847656E-7

31isClose(data, atad(1:size(data)), reltol = reltol)

32T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

33call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

34

35lenData = getUnifRand(5, 100)

36lenData

37+73

38data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

39data

40(+1.45983121312088987846862485456093608, +0.427600564498065081090257700664811333), (+1.36735275616513875615525640423191357, +0.668257271928982773878087309429772272), (+1.07139012178378389302713250638870964, +0.208093365062198642936861196464809451), (+1.84950267697776382959638222193180119, +0.681045020288112027417154694114009564), (+1.54437033729030447619097252410433745, +0.987816269706227100510287862175355587), (+1.57066829368691188971621751761176852, +0.675434515666368774229753462871542421), (+1.25683669844871961578817997140613563, +0.432091733115441111087797311077058118), (+1.67682361484290946289918684828865082, +0.171673528519703389197630243534066535), (+1.70031946745320138232696549223992888, +0.327207835125602840285848872681480630), (+1.87315435650447640342712961947905356, +0.494014189124049901568014705835031721E-1), (+1.36195275058159659966659128667084455, +0.554841586088610814575441586577258413), (+1.00870787475662908139459242007041253, +0.816975984265423789533252135693901095), (+1.34996904034110242948493888332738416, +0.902584497355921064088633369869545730), (+1.59503907080662089261220485534348171, +0.631543076070746596958997562682529967E-1), (+1.95953481948444774267100393275880984, +0.857857224760528875264138663469474135), (+1.21975701318133597044951490344830990, +0.535158390584334959517838359423264394), (+1.47565383366673400551527766613084618, +0.753302728040366203317137910006419041), (+1.28854113340254474521837599565278931, +0.683265398037206578859052839963409686), (+1.69260933431969708133023211721655964, +0.764881401476654717439321808636515932), (+1.33243812623882484094923231450306579, +0.421177676360365541278821652760481324), (+1.03133246585391474570896796944708794, +0.940669296062413428153290756987235524), (+1.68460736781398556145293222342425603, +0.907826996786905220388386425451757547), (+1.19112642417305062717013822496401500, +0.704801272519021022392870984406283392), (+1.14397762032691841698567288562043302, +0.642601590178054370075942344932866074), (+1.02916854416687678685373358429779184, +0.844464057226656815076337304744015632), (+1.02818825891142648116015223313821124, +0.523257743515148044031001004377818000E-1), (+1.48636597025930014488014971857005331, +0.161384555004329206486750526420814514), (+1.86273056737527757607393629978835729, +0.494258195133851941888696793355140074), (+1.77472619265246345355927896635699559, +0.179579950808277004000005032918382579), (+1.49046897102690510067539622836463290, +0.400461412864097837785617230141097670), (+1.59861794952132380225677975903812344, +0.436300629789569641149705586862832257), (+1.96333197164237352467570164926822338, +0.780643602678723861110305831150082439), (+1.86928221040180030656924117769851126, +0.891259381263911046512198030009198896), (+1.78757295358429413688413587830779170, +0.427575439175926447502577309164376488), (+1.13625962743833436774944738958032166, +0.412254485884422587086566426309723658), (+1.92117511668391202036790848816821634, +0.212089282601155959869802182036087987E-1), (+1.13022113535109130137601924651941795, +0.305527653449066679542239331631667281), (+1.64199110214093037067045256888966301, +0.556105181392660289009335204773470671), (+1.36801934969661368852695400541225487, +0.814713896924947497806254608114508798), (+1.73651045929762931481422066865849985, +0.373744981982259436650121883058429996), (+1.13982239855130518683809971252032633, +0.184583013196617919392813226640030672), (+1.17022533869961248683891372557077486, +0.963786266223067614692940598404098521), (+1.22938858948237511966963046097903401, +0.801503374904149853028858762799014532), (+1.02335620088078411959467213000296603, +0.577819339565961493020445734794970904), (+1.94638483786288061786789627250879128, +0.109823290617166210570577275422454022), (+1.04088190567098966949242090212880704, +0.880887752627597415625340092095255124E-1), (+1.59081438176756672272556526642967660, +0.496211498598343968953660030878905225), (+1.61352671157000254944981029710411047, +0.705096216402488534801858038204253171), (+1.82937450897394255627740057673918559, +0.861557002060838916399101831340218864), (+1.99916044215198056729332682231988302, +0.658249628212121237951069354620208762E-1), (+1.84144710369812913851697978198267286, +0.376197536581498208777324062327950377), (+1.62347239248144197092346917219034322, +0.547184771030192047773232889135307422), (+1.39761877999661803713058846831034418, +0.859000688702912806118541569506460872), (+1.67291081381906493326144937892524968, +0.306574279437724369945392732262015417), (+1.69940901651716596635754402165318432, +0.821013528725512932552423267438482140), (+1.20192106803662734860669235855750672, +0.121160221857074009435053908427100143), (+1.22346523350093370270909265517454161, +0.125672715046783839285616411767092210), (+1.41329121132719643385770755763251676, +0.770087189746129351075627387849124647), (+1.46264784107951213827722825350711111, +0.796927389407614480794652202441155014), (+1.61903604852690456094960137845903420, +0.505506686066563755417630177623379961), (+1.14926341244278088710269168851678572, +0.451654473051851578422814811060766287), (+1.34703705216976428289113483043197074, +0.668804999242177313447037415655450246), (+1.55092065919320834634546225517989430, +0.801541436144922411272337794509569295), (+1.22208157827349077803116691911544404, +0.666592192656709480819838041512768435), (+1.24138745111548976928910122155955746, +0.324690963953048777378712941453519165), (+1.84090392608043198927210872075820179, +0.213383374976353638815543572484205642), (+1.75684153442204955360035126912495689, +0.667605339740146133524389841928429123), (+1.79732231499994992705227171559375929, +0.292719746991014830586787652438487927), (+1.69385727712812982683804438933300378, +0.533452587899404203540782944319335338), (+1.63956739096627410555964116846687411, +0.383323833562506568414921005900874054), (+1.02817256184620444863209465662661951, +0.705785544063271466662574442660072365), (+1.99125838621596619427440524360238599, +0.576246463181868663731884881022317860), (+1.01027083165700635332248954625301887, +0.375254419836686225173454127034402859)

41

42atad = getFFTI(getFFTF(data))

43atad

44(+1.45983121312088987846862485456093627, +0.427600564498065081090257700664811333), (+1.36735275616513875615525640423191357, +0.668257271928982773878087309429771983), (+1.07139012178378389302713250638870964, +0.208093365062198642936861196464809475), (+1.84950267697776382959638222193180158, +0.681045020288112027417154694114009178), (+1.54437033729030447619097252410433745, +0.987816269706227100510287862175355490), (+1.57066829368691188971621751761176813, +0.675434515666368774229753462871542132), (+1.25683669844871961578817997140613563, +0.432091733115441111087797311077057877), (+1.67682361484290946289918684828865082, +0.171673528519703389197630243534065668), (+1.70031946745320138232696549223992926, +0.327207835125602840285848872681480726), (+1.87315435650447640342712961947905433, +0.494014189124049901568014705835028832E-1), (+1.36195275058159659966659128667084493, +0.554841586088610814575441586577258605), (+1.00870787475662908139459242007041292, +0.816975984265423789533252135693901095), (+1.34996904034110242948493888332738473, +0.902584497355921064088633369869545923), (+1.59503907080662089261220485534348209, +0.631543076070746596958997562682525754E-1), (+1.95953481948444774267100393275881023, +0.857857224760528875264138663469474424), (+1.21975701318133597044951490344831029, +0.535158390584334959517838359423264105), (+1.47565383366673400551527766613084656, +0.753302728040366203317137910006419138), (+1.28854113340254474521837599565278970, +0.683265398037206578859052839963409686), (+1.69260933431969708133023211721656002, +0.764881401476654717439321808636516029), (+1.33243812623882484094923231450306618, +0.421177676360365541278821652760481035), (+1.03133246585391474570896796944708813, +0.940669296062413428153290756987235620), (+1.68460736781398556145293222342425642, +0.907826996786905220388386425451757355), (+1.19112642417305062717013822496401500, +0.704801272519021022392870984406283488), (+1.14397762032691841698567288562043321, +0.642601590178054370075942344932865978), (+1.02916854416687678685373358429779165, +0.844464057226656815076337304744015824), (+1.02818825891142648116015223313821124, +0.523257743515148044031001004377815833E-1), (+1.48636597025930014488014971857005389, +0.161384555004329206486750526420814778), (+1.86273056737527757607393629978835768, +0.494258195133851941888696793355139978), (+1.77472619265246345355927896635699578, +0.179579950808277004000005032918382723), (+1.49046897102690510067539622836463309, +0.400461412864097837785617230141097670), (+1.59861794952132380225677975903812344, +0.436300629789569641149705586862832354), (+1.96333197164237352467570164926822376, +0.780643602678723861110305831150082439), (+1.86928221040180030656924117769851146, +0.891259381263911046512198030009199185), (+1.78757295358429413688413587830779189, +0.427575439175926447502577309164376392), (+1.13625962743833436774944738958032185, +0.412254485884422587086566426309723754), (+1.92117511668391202036790848816821692, +0.212089282601155959869802182036087506E-1), (+1.13022113535109130137601924651941795, +0.305527653449066679542239331631667329), (+1.64199110214093037067045256888966340, +0.556105181392660289009335204773470574), (+1.36801934969661368852695400541225526, +0.814713896924947497806254608114509087), (+1.73651045929762931481422066865850062, +0.373744981982259436650121883058430092), (+1.13982239855130518683809971252032671, +0.184583013196617919392813226640030769), (+1.17022533869961248683891372557077486, +0.963786266223067614692940598404099195), (+1.22938858948237511966963046097903439, +0.801503374904149853028858762799014821), (+1.02335620088078411959467213000296641, +0.577819339565961493020445734794971097), (+1.94638483786288061786789627250879186, +0.109823290617166210570577275422454095), (+1.04088190567098966949242090212880704, +0.880887752627597415625340092095253078E-1), (+1.59081438176756672272556526642967698, +0.496211498598343968953660030878905369), (+1.61352671157000254944981029710411105, +0.705096216402488534801858038204253460), (+1.82937450897394255627740057673918598, +0.861557002060838916399101831340219057), (+1.99916044215198056729332682231988360, +0.658249628212121237951069354620206836E-1), (+1.84144710369812913851697978198267344, +0.376197536581498208777324062327950474), (+1.62347239248144197092346917219034380, +0.547184771030192047773232889135307518), (+1.39761877999661803713058846831034456, +0.859000688702912806118541569506460775), (+1.67291081381906493326144937892524987, +0.306574279437724369945392732262015320), (+1.69940901651716596635754402165318489, +0.821013528725512932552423267438482237), (+1.20192106803662734860669235855750711, +0.121160221857074009435053908427100311), (+1.22346523350093370270909265517454200, +0.125672715046783839285616411767092306), (+1.41329121132719643385770755763251676, +0.770087189746129351075627387849125128), (+1.46264784107951213827722825350711111, +0.796927389407614480794652202441155592), (+1.61903604852690456094960137845903478, +0.505506686066563755417630177623380443), (+1.14926341244278088710269168851678610, +0.451654473051851578422814811060766336), (+1.34703705216976428289113483043197094, +0.668804999242177313447037415655450728), (+1.55092065919320834634546225517989468, +0.801541436144922411272337794509569584), (+1.22208157827349077803116691911544442, +0.666592192656709480819838041512768820), (+1.24138745111548976928910122155955765, +0.324690963953048777378712941453519261), (+1.84090392608043198927210872075820179, +0.213383374976353638815543572484205666), (+1.75684153442204955360035126912495708, +0.667605339740146133524389841928429123), (+1.79732231499994992705227171559375967, +0.292719746991014830586787652438488264), (+1.69385727712812982683804438933300397, +0.533452587899404203540782944319335434), (+1.63956739096627410555964116846687449, +0.383323833562506568414921005900874054), (+1.02817256184620444863209465662661990, +0.705785544063271466662574442660072654), (+1.99125838621596619427440524360238657, +0.576246463181868663731884881022318342), (+1.01027083165700635332248954625301887, +0.375254419836686225173454127034403051), (-0.674075480535532548569592279904724561E-33, +0.192592994438723585305597794258492732E-33), (-0.962964972193617926527988971292463659E-34, -0.144444745829042688979198345693869549E-33), (-0.962964972193617926527988971292463659E-34, -0.481482486096808963263994485646231830E-34), (-0.962964972193617926527988971292463659E-34, -0.288889491658085377958396691387739098E-33), (-0.288889491658085377958396691387739098E-33, +0.252778305200824705713597104964271711E-33), (-0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33), (-0.962964972193617926527988971292463659E-34, +0.288889491658085377958396691387739098E-33), (+0.192592994438723585305597794258492732E-33, -0.481482486096808963263994485646231830E-34), (-0.192592994438723585305597794258492732E-33, +0.144444745829042688979198345693869549E-33), (-0.192592994438723585305597794258492732E-33, -0.481482486096808963263994485646231830E-34), (+0.00000000000000000000000000000000000, +0.120370621524202240815998621411557957E-33), (+0.962964972193617926527988971292463659E-34, +0.144444745829042688979198345693869549E-33), (-0.288889491658085377958396691387739098E-33, +0.240741243048404481631997242823115915E-33), (+0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000), (+0.00000000000000000000000000000000000, +0.240741243048404481631997242823115915E-33), (+0.962964972193617926527988971292463659E-34, -0.288889491658085377958396691387739098E-33), (-0.288889491658085377958396691387739098E-33, +0.722223729145213444895991728469347744E-34), (-0.192592994438723585305597794258492732E-33, -0.264815367353244929795196967105427506E-33), (-0.288889491658085377958396691387739098E-33, -0.240741243048404481631997242823115915E-34), (+0.00000000000000000000000000000000000, -0.132407683676622464897598483552713753E-33), (-0.192592994438723585305597794258492732E-33, +0.962964972193617926527988971292463659E-34), (+0.00000000000000000000000000000000000, -0.240741243048404481631997242823115915E-33), (-0.288889491658085377958396691387739098E-33, -0.481482486096808963263994485646231830E-34), (+0.192592994438723585305597794258492732E-33, -0.144444745829042688979198345693869549E-33), (-0.577778983316170755916793382775478196E-33, +0.00000000000000000000000000000000000), (-0.288889491658085377958396691387739098E-33, -0.962964972193617926527988971292463659E-34), (-0.481482486096808963263994485646231830E-33, -0.144444745829042688979198345693869549E-33), (-0.962964972193617926527988971292463659E-34, -0.144444745829042688979198345693869549E-33), (-0.481482486096808963263994485646231830E-33, +0.00000000000000000000000000000000000), (-0.192592994438723585305597794258492732E-33, -0.385185988877447170611195588516985464E-33), (-0.288889491658085377958396691387739098E-33, -0.288889491658085377958396691387739098E-33), (+0.962964972193617926527988971292463659E-34, -0.288889491658085377958396691387739098E-33), (-0.481482486096808963263994485646231830E-33, -0.577778983316170755916793382775478196E-33), (+0.962964972193617926527988971292463659E-34, -0.385185988877447170611195588516985464E-33), (-0.962964972193617926527988971292463659E-34, -0.625927231925851652243192831340101379E-33), (-0.385185988877447170611195588516985464E-33, -0.240741243048404481631997242823115915E-34), (-0.481482486096808963263994485646231830E-33, -0.120370621524202240815998621411557957E-34), (-0.192592994438723585305597794258492732E-33, -0.240741243048404481631997242823115915E-33), (-0.288889491658085377958396691387739098E-33, -0.192592994438723585305597794258492732E-33), (+0.00000000000000000000000000000000000, -0.144444745829042688979198345693869549E-33), (-0.577778983316170755916793382775478196E-33, +0.00000000000000000000000000000000000), (-0.192592994438723585305597794258492732E-33, -0.288889491658085377958396691387739098E-33), (+0.00000000000000000000000000000000000, -0.385185988877447170611195588516985464E-33), (-0.385185988877447170611195588516985464E-33, -0.144444745829042688979198345693869549E-33), (-0.577778983316170755916793382775478196E-33, -0.962964972193617926527988971292463659E-34), (-0.385185988877447170611195588516985464E-33, -0.192592994438723585305597794258492732E-33), (-0.288889491658085377958396691387739098E-33, -0.361111864572606722447995864234673872E-33), (-0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34), (-0.962964972193617926527988971292463659E-34, -0.337037740267766274284796139952362281E-33), (+0.962964972193617926527988971292463659E-34, -0.433334237487128066937595037081608647E-33), (-0.288889491658085377958396691387739098E-33, -0.529630734706489859590393934210855013E-33), (-0.962964972193617926527988971292463659E-34, +0.481482486096808963263994485646231830E-34), (-0.577778983316170755916793382775478196E-33, -0.577778983316170755916793382775478196E-33), (-0.192592994438723585305597794258492732E-33, -0.192592994438723585305597794258492732E-33), (-0.577778983316170755916793382775478196E-33, -0.722223729145213444895991728469347744E-33)

45reltol = sqrt(epsilon(1._TKC))

46reltol

47+0.138777878078144567552953958511352539E-16

48isClose(data, atad(1:size(data)), reltol = reltol)

49T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

50call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

51

52lenData = getUnifRand(5, 100)

53lenData

54+22

55data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

56data

57+1.24858236, +1.21273553, +1.38208389, +1.05077004, +1.13122225, +1.88743949, +1.78111684, +1.01188958, +1.95917392, +1.79959631, +1.24404025, +1.09607148, +1.65356660, +1.16325045, +1.98461592, +1.52808094, +1.67568994, +1.85798752, +1.47579992, +1.92151678, +1.88761652, +1.45213258

58

59atad = getFFTI(getFFTF(data))

60atad

61+1.24858224, +1.21273553, +1.38208389, +1.05077016, +1.13122225, +1.88743949, +1.78111660, +1.01188970, +1.95917392, +1.79959607, +1.24404049, +1.09607148, +1.65356672, +1.16325068, +1.98461616, +1.52808070, +1.67568982, +1.85798752, +1.47579956, +1.92151654, +1.88761640, +1.45213246, +0.119209290E-6, -0.596046448E-7, -0.238418579E-6, +0.238418579E-6, -0.596046448E-7, +0.178813934E-6, -0.119209290E-6, +0.417232513E-6, +0.119209290E-6, +0.238418579E-6

62reltol = sqrt(epsilon(1._TKC))

63reltol

64+0.345266977E-3

65isClose(data, atad(1:size(data)), reltol = reltol)

66T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

67call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

68

69lenData = getUnifRand(5, 100)

70lenData

71+72

72data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

73data

74+1.1227801596424856, +1.0937639607486229, +1.1242214593711859, +1.9584591777680882, +1.8737424750976703, +1.4037538361923145, +1.8979576218349128, +1.9310654976668964, +1.1663380995067407, +1.1518888849938793, +1.9313853359145887, +1.3853448710381930, +1.6316538943074979, +1.3652340851320925, +1.8006848575170020, +1.9229902520192823, +1.3965730629621729, +1.8225246599866527, +1.8088685126796769, +1.7920523506492225, +1.7659519865970490, +1.3033085264878721, +1.4326961355744783, +1.8030731770483515, +1.3302515927124430, +1.5530776030657931, +1.3221717672542579, +1.4090954427563975, +1.2389738370223766, +1.5947020374588945, +1.5612396761640095, +1.8645648142246896, +1.6378239688879024, +1.7347478511959333, +1.7171916804907859, +1.4881669595527045, +1.4748169308575090, +1.4722911111718502, +1.9609102324535388, +1.0028213633744900, +1.9530771886865339, +1.4250375624671960, +1.7878465989995886, +1.2115690058964561, +1.7565292138683459, +1.3379590259419003, +1.9683530254745214, +1.9319754043370767, +1.1045763401535875, +1.5765677230510282, +1.0041340230285363, +1.1808941057946263, +1.8422745531604234, +1.1705270099042773, +1.2174035847917364, +1.0336443086398952, +1.0631668842523951, +1.5687060027363864, +1.3137345244471064, +1.3438287088077052, +1.6038364899744213, +1.9969653925549804, +1.9476453969554079, +1.1106072495118087, +1.4203591330168255, +1.2422461662227628, +1.0948399414537782, +1.3796112892110188, +1.8429509702947269, +1.4251696898286168, +1.8190625346190887, +1.9272469060881099

75

76atad = getFFTI(getFFTF(data))

77atad

78+1.1227801596424853, +1.0937639607486229, +1.1242214593711863, +1.9584591777680886, +1.8737424750976697, +1.4037538361923145, +1.8979576218349123, +1.9310654976668966, +1.1663380995067407, +1.1518888849938793, +1.9313853359145892, +1.3853448710381935, +1.6316538943074979, +1.3652340851320925, +1.8006848575170018, +1.9229902520192823, +1.3965730629621724, +1.8225246599866529, +1.8088685126796769, +1.7920523506492227, +1.7659519865970490, +1.3033085264878723, +1.4326961355744778, +1.8030731770483515, +1.3302515927124425, +1.5530776030657931, +1.3221717672542572, +1.4090954427563975, +1.2389738370223764, +1.5947020374588947, +1.5612396761640088, +1.8645648142246891, +1.6378239688879028, +1.7347478511959333, +1.7171916804907861, +1.4881669595527041, +1.4748169308575096, +1.4722911111718502, +1.9609102324535383, +1.0028213633744896, +1.9530771886865343, +1.4250375624671960, +1.7878465989995886, +1.2115690058964557, +1.7565292138683462, +1.3379590259418999, +1.9683530254745214, +1.9319754043370763, +1.1045763401535882, +1.5765677230510282, +1.0041340230285360, +1.1808941057946254, +1.8422745531604237, +1.1705270099042766, +1.2174035847917368, +1.0336443086398945, +1.0631668842523954, +1.5687060027363859, +1.3137345244471064, +1.3438287088077048, +1.6038364899744215, +1.9969653925549795, +1.9476453969554077, +1.1106072495118080, +1.4203591330168257, +1.2422461662227628, +1.0948399414537784, +1.3796112892110188, +1.8429509702947273, +1.4251696898286159, +1.8190625346190887, +1.9272469060881094, +0.11102230246251565E-15, -0.44408920985006262E-15, -0.22204460492503131E-15, -0.77715611723760958E-15, +0.33306690738754696E-15, -0.55511151231257827E-15, +0.77715611723760958E-15, -0.66613381477509392E-15, +0.11102230246251565E-15, -0.77715611723760958E-15, +0.11102230246251565E-15, -0.88817841970012523E-15, +0.44408920985006262E-15, -0.22204460492503131E-15, +0.33306690738754696E-15, -0.33306690738754696E-15, -0.22204460492503131E-15, -0.22204460492503131E-15, +0.66613381477509392E-15, -0.33306690738754696E-15, +0.44408920985006262E-15, -0.22204460492503131E-15, +0.99920072216264089E-15, +0.0000000000000000, -0.55511151231257827E-15, +0.0000000000000000, +0.44408920985006262E-15, +0.0000000000000000, +0.22204460492503131E-15, +0.22204460492503131E-15, +0.44408920985006262E-15, +0.66613381477509392E-15, -0.44408920985006262E-15, -0.11102230246251565E-15, +0.22204460492503131E-15, +0.22204460492503131E-15, -0.33306690738754696E-15, +0.22204460492503131E-15, +0.22204460492503131E-15, +0.33306690738754696E-15, -0.55511151231257827E-15, -0.11102230246251565E-15, +0.0000000000000000, +0.11102230246251565E-15, -0.44408920985006262E-15, +0.88817841970012523E-15, -0.11102230246251565E-15, +0.66613381477509392E-15, -0.66613381477509392E-15, +0.0000000000000000, +0.44408920985006262E-15, +0.22204460492503131E-15, -0.66613381477509392E-15, +0.99920072216264089E-15, -0.22204460492503131E-15, +0.88817841970012523E-15

79reltol = sqrt(epsilon(1._TKC))

80reltol

81+0.14901161193847656E-7

82isClose(data, atad(1:size(data)), reltol = reltol)

83T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

84call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

85

86lenData = getUnifRand(5, 100)

87lenData

88+5

89data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

90data

91+1.91578687210544453979170223603281764, +1.84112306479134183741730935575242855, +1.61084524915190769972592918045351175, +1.53140161193906474716931470444089349, +1.25924794927255035145037252529442400

92

93atad = getFFTI(getFFTF(data))

94atad

95+1.91578687210544453979170223603281783, +1.84112306479134183741730935575242855, +1.61084524915190769972592918045351155, +1.53140161193906474716931470444089349, +1.25924794927255035145037252529442400, +0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34, +0.962964972193617926527988971292463659E-34

96reltol = sqrt(epsilon(1._TKC))

97reltol

98+0.138777878078144567552953958511352539E-16

99isClose(data, atad(1:size(data)), reltol = reltol)

100T, T, T, T, T

101call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

102

103lenData = getUnifRand(5, 100)

104lenData

105+39

106data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

107data

108(+1.44181836, +0.876250923), (+1.55184531, +0.274678826), (+1.28586602, +0.145395160), (+1.45035076, +0.455686986), (+1.78142118, +0.614888966), (+1.99239564, +0.815337896), (+1.05063689, +0.496281505), (+1.71002567, +0.125949562), (+1.40862358, +0.337599516), (+1.33330882, +0.853742838), (+1.32132077, +0.857260227E-1), (+1.30581403, +0.628382504), (+1.97664833, +0.433507502), (+1.75680256, +0.949725747), (+1.16793036, +0.576999068), (+1.98087883, +0.808646083E-1), (+1.44974351, +0.152313113E-1), (+1.81861746, +0.659609377), (+1.15511298, +0.468357980), (+1.57957888, +0.558495998), (+1.59283733, +0.477221847), (+1.79190755, +0.413186193), (+1.90415955, +0.776237130), (+1.75437009, +0.885593891), (+1.35286939, +0.563786626E-1), (+1.68975019, +0.497833550), (+1.02050662, +0.610296130E-1), (+1.81510973, +0.234966278E-1), (+1.16922057, +0.105822384), (+1.11750150, +0.357208788), (+1.21769166, +0.885196626), (+1.88110316, +0.570416510), (+1.93018126, +0.293393672), (+1.74559760, +0.527009308), (+1.80322456, +0.400839746), (+1.92404866, +0.863668740), (+1.62124395, +0.501411915), (+1.30546069, +0.935267150), (+1.18973911, +0.272408724)

109

110atad = getFFTI(getFFTF(data))

111atad

112(+1.44181824, +0.876250863), (+1.55184519, +0.274678856), (+1.28586578, +0.145395175), (+1.45035064, +0.455687016), (+1.78142107, +0.614888847), (+1.99239564, +0.815337956), (+1.05063689, +0.496281356), (+1.71002543, +0.125949413), (+1.40862358, +0.337599635), (+1.33330870, +0.853742957), (+1.32132053, +0.857260451E-1), (+1.30581379, +0.628382444), (+1.97664821, +0.433507770), (+1.75680244, +0.949726045), (+1.16793025, +0.576999068), (+1.98087859, +0.808645710E-1), (+1.44974327, +0.152312405E-1), (+1.81861734, +0.659609318), (+1.15511274, +0.468357861), (+1.57957876, +0.558495700), (+1.59283721, +0.477221757), (+1.79190755, +0.413186163), (+1.90415943, +0.776236892), (+1.75436997, +0.885593772), (+1.35286927, +0.563787073E-1), (+1.68974996, +0.497833610), (+1.02050650, +0.610296205E-1), (+1.81510949, +0.234965235E-1), (+1.16922033, +0.105822414), (+1.11750150, +0.357208729), (+1.21769142, +0.885196567), (+1.88110280, +0.570416510), (+1.93018126, +0.293393612), (+1.74559748, +0.527009130), (+1.80322456, +0.400839567), (+1.92404902, +0.863668442), (+1.62124383, +0.501411974), (+1.30546069, +0.935267150), (+1.18973911, +0.272408754), (+0.357627869E-6, +0.268220901E-6), (-0.119209290E-6, -0.745058060E-7), (+0.119209290E-6, -0.119209290E-6), (+0.238418579E-6, +0.223517418E-7), (+0.357627869E-6, +0.00000000), (-0.119209290E-6, -0.119209290E-6), (+0.119209290E-6, -0.178813934E-6), (+0.238418579E-6, -0.596046448E-7), (+0.178813934E-6, +0.670552254E-7), (-0.298023224E-6, +0.116415322E-7), (+0.178813934E-6, +0.149011612E-6), (+0.119209290E-6, +0.745058060E-7), (+0.238418579E-6, +0.298023224E-6), (-0.119209290E-6, -0.298023224E-7), (-0.596046448E-7, -0.894069672E-7), (+0.119209290E-6, -0.298023224E-7), (+0.298023224E-6, +0.149011612E-6), (+0.00000000, -0.745058060E-7), (+0.178813934E-6, +0.119209290E-6), (+0.119209290E-6, +0.391155481E-7), (+0.417232513E-6, +0.134110451E-6), (+0.119209290E-6, -0.119209290E-6), (+0.298023224E-6, +0.298023224E-7), (+0.178813934E-6, -0.298023224E-7), (+0.178813934E-6, -0.596046448E-7)

113reltol = sqrt(epsilon(1._TKC))

114reltol

115+0.345266977E-3

116isClose(data, atad(1:size(data)), reltol = reltol)

117T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

118call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

119

120lenData = getUnifRand(5, 100)

121lenData

122+25

123data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

124data

125(+1.7121785470343414, +0.90377439380971425), (+1.9038301429291467, +0.93568798628270355), (+1.1292443599973416, +0.78695906028759977E-1), (+1.9105649756177618, +0.72256736510091657), (+1.5579542977654217, +0.52477387072303627), (+1.5384862889483122, +0.84050668187880584), (+1.2667040012031268, +0.34800925981222719), (+1.0495257099467632, +0.66219376318178202E-1), (+1.4363231559554741, +0.13540900583965276), (+1.6698436383386683, +0.97579400578065445), (+1.2540464581496762, +0.86723835707917196), (+1.7530101657626100, +0.23166731980907440), (+1.8244386114164564, +0.91965823829594540), (+1.9931881090888193, +0.43099899463527969), (+1.8603201689457984, +0.10502364585412438), (+1.9827175017217735, +0.10420433292266917), (+1.6066488940754411, +0.71418653747372840), (+1.0026791896525054, +0.26626347955530183), (+1.9968879931822410, +0.80798510189068018), (+1.7192444882120108, +0.29597711765730383), (+1.4105276788101186, +0.12594419305781490), (+1.8779497834629915, +0.22865244504481730), (+1.6118475597386051, +0.47130447093559780), (+1.9372236036969914, +0.24449556523694937), (+1.7037381995866192, +0.29590006774736444E-1)

126

127atad = getFFTI(getFFTF(data))

128atad

129(+1.7121785470343411, +0.90377439380971414), (+1.9038301429291462, +0.93568798628270344), (+1.1292443599973416, +0.78695906028760088E-1), (+1.9105649756177616, +0.72256736510091657), (+1.5579542977654222, +0.52477387072303627), (+1.5384862889483117, +0.84050668187880551), (+1.2667040012031270, +0.34800925981222752), (+1.0495257099467632, +0.66219376318178466E-1), (+1.4363231559554743, +0.13540900583965279), (+1.6698436383386679, +0.97579400578065423), (+1.2540464581496762, +0.86723835707917174), (+1.7530101657626094, +0.23166731980907440), (+1.8244386114164564, +0.91965823829594506), (+1.9931881090888184, +0.43099899463527946), (+1.8603201689457980, +0.10502364585412421), (+1.9827175017217726, +0.10420433292266898), (+1.6066488940754411, +0.71418653747372829), (+1.0026791896525051, +0.26626347955530155), (+1.9968879931822410, +0.80798510189068018), (+1.7192444882120106, +0.29597711765730383), (+1.4105276788101189, +0.12594419305781485), (+1.8779497834629910, +0.22865244504481719), (+1.6118475597386055, +0.47130447093559757), (+1.9372236036969910, +0.24449556523694904), (+1.7037381995866194, +0.29590006774736305E-1), (+0.0000000000000000, -0.55511151231257827E-16), (+0.11102230246251565E-15, +0.55511151231257827E-16), (+0.66613381477509392E-15, -0.11102230246251565E-15), (+0.66613381477509392E-15, +0.16653345369377348E-15), (+0.44408920985006262E-15, +0.36082248300317588E-15), (+0.77715611723760958E-15, +0.27755575615628914E-15), (+0.77715611723760958E-15, +0.58980598183211441E-15)

130reltol = sqrt(epsilon(1._TKC))

131reltol

132+0.14901161193847656E-7

133isClose(data, atad(1:size(data)), reltol = reltol)

134T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

135call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

136

137lenData = getUnifRand(5, 100)

138lenData

139+30

140data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

141data

142(+1.70850729643458934723837874257450507, +0.768423765986526270500381592526536412), (+1.73660640183574054168087737865698315, +0.492453210589305552550280862586692059), (+1.00911955517735027300028474856629178, +0.623278941869309682568447533033562807), (+1.70422135830546452166986227834660760, +0.588964155445672575327563463584071447), (+1.19155760714762056492251211651991815, +0.399281772328986545241458770211698854), (+1.70626983411423776607348640707964894, +0.716669799232925951212961423731680487), (+1.95633671706203220657175256331704926, +0.473833039921382870053750916008953055), (+1.24274634438324671332671656057323592, +0.241903693512248797338127274254736773), (+1.07480082731513475730591445483730214, +0.932934984954461789494459558540635526), (+1.00833610208902635158170982759467595, +0.260721568218299412922446072838914700), (+1.74091080766588656100323685617356937, +0.279418835551211059221080897386381129), (+1.36088523003215652920794547740240237, +0.671286342819770176039674910757001773), (+1.17706802254914158915269781460618778, +0.425575052421274048380777287767222232), (+1.11575238805316296562939928163153298, +0.278962251923088246641551935420621482), (+1.99907786050219872393989058254518620, +0.616791914154362626431211479268669275), (+1.07220123628284212241464457296042846, +0.428340041491401056978470253100396601), (+1.92288418418410802187593480300422827, +0.661269678389965294473265008029575884), (+1.60422328171482995015053754840137792, +0.169219032559156084737728986605802074), (+1.09062075283861621727649485182650397, +0.657752162249787818699661230435640127), (+1.11516099357635985493472369855210418, +0.170970719888279343187390569412544553), (+1.75932777266383880592920540397005334, +0.209143958440686136256720215257623704), (+1.03110491783344914727912113898760707, +0.103059559244291273525376116022425593), (+1.50306095624701994114203937041626888, +0.760600433424978472961025306144888973), (+1.25305666214279961396230838567036294, +0.277920266780159303472737878771570833), (+1.52403110540544598354980933910052782, +0.138455409048909331584231614345121609), (+1.89157525288905679661037593652015895, +0.471917284907886315646665321498409365), (+1.13647520383432475261893368185624784, +0.881621048347576027463677595455602144), (+1.65471429871351353012262602107833990, +0.436014543973295191219816782635768691), (+1.16317697240391591587661598405890868, +0.581106984436104533784567222997140726), (+1.44283790957087831938444482257490798, +0.428349277711775795021771812703028724)

143

144atad = getFFTI(getFFTF(data))

145atad

146(+1.70850729643458934723837874257450487, +0.768423765986526270500381592526536316), (+1.73660640183574054168087737865698277, +0.492453210589305552550280862586692155), (+1.00911955517735027300028474856629217, +0.623278941869309682568447533033562615), (+1.70422135830546452166986227834660760, +0.588964155445672575327563463584071544), (+1.19155760714762056492251211651991834, +0.399281772328986545241458770211698854), (+1.70626983411423776607348640707964874, +0.716669799232925951212961423731680487), (+1.95633671706203220657175256331704964, +0.473833039921382870053750916008952766), (+1.24274634438324671332671656057323611, +0.241903693512248797338127274254736436), (+1.07480082731513475730591445483730234, +0.932934984954461789494459558540635526), (+1.00833610208902635158170982759467576, +0.260721568218299412922446072838914700), (+1.74091080766588656100323685617356956, +0.279418835551211059221080897386381129), (+1.36088523003215652920794547740240237, +0.671286342819770176039674910757001869), (+1.17706802254914158915269781460618797, +0.425575052421274048380777287767222232), (+1.11575238805316296562939928163153260, +0.278962251923088246641551935420621482), (+1.99907786050219872393989058254518639, +0.616791914154362626431211479268669467), (+1.07220123628284212241464457296042827, +0.428340041491401056978470253100396601), (+1.92288418418410802187593480300422808, +0.661269678389965294473265008029575884), (+1.60422328171482995015053754840137773, +0.169219032559156084737728986605801978), (+1.09062075283861621727649485182650436, +0.657752162249787818699661230435640319), (+1.11516099357635985493472369855210418, +0.170970719888279343187390569412544553), (+1.75932777266383880592920540397005353, +0.209143958440686136256720215257623680), (+1.03110491783344914727912113898760707, +0.103059559244291273525376116022425689), (+1.50306095624701994114203937041626927, +0.760600433424978472961025306144889262), (+1.25305666214279961396230838567036294, +0.277920266780159303472737878771570882), (+1.52403110540544598354980933910052782, +0.138455409048909331584231614345121706), (+1.89157525288905679661037593652015876, +0.471917284907886315646665321498409269), (+1.13647520383432475261893368185624803, +0.881621048347576027463677595455602337), (+1.65471429871351353012262602107833990, +0.436014543973295191219816782635768691), (+1.16317697240391591587661598405890887, +0.581106984436104533784567222997140726), (+1.44283790957087831938444482257490779, +0.428349277711775795021771812703028531), (-0.192592994438723585305597794258492732E-33, -0.288889491658085377958396691387739098E-33), (+0.00000000000000000000000000000000000, +0.00000000000000000000000000000000000)

147reltol = sqrt(epsilon(1._TKC))

148reltol

149+0.138777878078144567552953958511352539E-16

150isClose(data, atad(1:size(data)), reltol = reltol)

151T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

152call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

153

154lenData = getUnifRand(5, 100)

155lenData

156+36

157data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

158data

159+1.17339158, +1.31877136, +1.71208048, +1.44522488, +1.39063096, +1.62551117, +1.24187434, +1.37768793, +1.15232444, +1.01865828, +1.87349963, +1.45501578, +1.01383233, +1.48532009, +1.25006127, +1.91684031, +1.81420803, +1.75910008, +1.49373102, +1.22798336, +1.48378062, +1.73697007, +1.38536620, +1.84947252, +1.32091045, +1.43776703, +1.26427698, +1.92586088, +1.69366312, +1.89040315, +1.04335713, +1.47084212, +1.16312051, +1.75625718, +1.27626634, +1.51664162

160

161atad = getFFTI(getFFTF(data))

162atad

163+1.17339158, +1.31877136, +1.71208024, +1.44522464, +1.39063084, +1.62551117, +1.24187434, +1.37768769, +1.15232420, +1.01865840, +1.87349951, +1.45501578, +1.01383209, +1.48532009, +1.25006127, +1.91684008, +1.81420803, +1.75909996, +1.49373102, +1.22798347, +1.48378062, +1.73697019, +1.38536620, +1.84947252, +1.32091045, +1.43776703, +1.26427698, +1.92586064, +1.69366288, +1.89040315, +1.04335713, +1.47084236, +1.16312051, +1.75625706, +1.27626634, +1.51664150, +0.119209290E-6, +0.00000000, +0.238418579E-6, +0.238418579E-6, +0.596046448E-7, +0.178813934E-6, +0.238418579E-6, +0.238418579E-6, +0.298023224E-6, +0.178813934E-6, +0.178813934E-6, +0.596046448E-7, -0.596046448E-7, +0.119209290E-6, -0.119209290E-6, +0.238418579E-6, +0.00000000, +0.596046448E-7, +0.596046448E-7, +0.596046448E-7, -0.596046448E-7, +0.178813934E-6, +0.119209290E-6, +0.298023224E-6, +0.357627869E-6, +0.119209290E-6, +0.119209290E-6, -0.596046448E-7

164reltol = sqrt(epsilon(1._TKC))

165reltol

166+0.345266977E-3

167isClose(data, atad(1:size(data)), reltol = reltol)

168T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

169call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

170

171lenData = getUnifRand(5, 100)

172lenData

173+65

174data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

175data

176+1.9249756205483244, +1.0060557501305167, +1.9007411779469869, +1.4757940555242435, +1.8224096639632310, +1.7354668768048382, +1.6980409677128354, +1.0700487872487416, +1.1632841719442120, +1.9430306357460476, +1.6571589415009738, +1.4161483112489943, +1.2535147882860920, +1.3907678788522646, +1.7192897760091315, +1.2989076098906518, +1.3160182652990722, +1.3533101735337618, +1.3017720761507876, +1.4502768485677411, +1.4918881600407468, +1.2620120893540152, +1.3633978180072799, +1.7136824547845850, +1.9048399869154320, +1.0451631758434821, +1.0122090385432956, +1.0731350682747649, +1.5904020632359970, +1.9669768090151902, +1.3872832782978575, +1.2394318040600181, +1.9413635091441139, +1.6460813689758602, +1.0260931658064796, +1.9986244493800875, +1.0853916431498729, +1.2888671767874622, +1.7452392829339740, +1.1114537901388215, +1.0659573465759202, +1.7626069237260324, +1.2024207818321448, +1.5634353622074093, +1.6821110772740342, +1.1742038908159089, +1.2207147641356193, +1.5898989994071284, +1.9443856441109375, +1.2977546142017977, +1.2821166200121865, +1.7201961690855143, +1.7300682111297085, +1.0197253887404594, +1.9206726637788201, +1.8308632510236746, +1.4076468670160946, +1.1821448388699061, +1.4457944436495351, +1.9223188806259754, +1.9179113294013121, +1.5050816041540296, +1.7059195937195335, +1.1874393025424450, +1.6520156847778569

177

178atad = getFFTI(getFFTF(data))

179atad

180+1.9249756205483246, +1.0060557501305170, +1.9007411779469869, +1.4757940555242441, +1.8224096639632303, +1.7354668768048382, +1.6980409677128352, +1.0700487872487416, +1.1632841719442117, +1.9430306357460476, +1.6571589415009740, +1.4161483112489948, +1.2535147882860920, +1.3907678788522644, +1.7192897760091315, +1.2989076098906518, +1.3160182652990720, +1.3533101735337618, +1.3017720761507872, +1.4502768485677411, +1.4918881600407461, +1.2620120893540148, +1.3633978180072792, +1.7136824547845850, +1.9048399869154315, +1.0451631758434825, +1.0122090385432951, +1.0731350682747651, +1.5904020632359965, +1.9669768090151896, +1.3872832782978572, +1.2394318040600183, +1.9413635091441142, +1.6460813689758602, +1.0260931658064796, +1.9986244493800871, +1.0853916431498734, +1.2888671767874620, +1.7452392829339740, +1.1114537901388215, +1.0659573465759200, +1.7626069237260329, +1.2024207818321444, +1.5634353622074091, +1.6821110772740340, +1.1742038908159085, +1.2207147641356193, +1.5898989994071284, +1.9443856441109375, +1.2977546142017977, +1.2821166200121865, +1.7201961690855136, +1.7300682111297083, +1.0197253887404587, +1.9206726637788201, +1.8308632510236740, +1.4076468670160942, +1.1821448388699061, +1.4457944436495347, +1.9223188806259746, +1.9179113294013124, +1.5050816041540287, +1.7059195937195337, +1.1874393025424441, +1.6520156847778567, +0.22204460492503131E-15, +0.11102230246251565E-15, -0.66613381477509392E-15, +0.66613381477509392E-15, +0.0000000000000000, +0.66613381477509392E-15, +0.11102230246251565E-15, -0.11102230246251565E-15, +0.66613381477509392E-15, -0.11102230246251565E-15, -0.33306690738754696E-15, +0.44408920985006262E-15, +0.44408920985006262E-15, +0.22204460492503131E-15, +0.22204460492503131E-15, +0.22204460492503131E-15, +0.22204460492503131E-15, +0.11102230246251565E-15, -0.11102230246251565E-15, +0.66613381477509392E-15, +0.77715611723760958E-15, +0.77715611723760958E-15, -0.11102230246251565E-15, +0.33306690738754696E-15, +0.11102230246251565E-15, +0.55511151231257827E-15, +0.0000000000000000, +0.77715611723760958E-15, +0.44408920985006262E-15, +0.77715611723760958E-15, -0.11102230246251565E-15, -0.22204460492503131E-15, +0.55511151231257827E-15, -0.11102230246251565E-15, +0.22204460492503131E-15, +0.11102230246251565E-15, +0.66613381477509392E-15, +0.22204460492503131E-15, +0.33306690738754696E-15, -0.11102230246251565E-15, +0.33306690738754696E-15, +0.11102230246251565E-15, -0.11102230246251565E-15, +0.22204460492503131E-15, +0.77715611723760958E-15, +0.22204460492503131E-15, +0.0000000000000000, +0.11102230246251565E-15, +0.55511151231257827E-15, +0.0000000000000000, +0.33306690738754696E-15, +0.22204460492503131E-15, +0.12212453270876722E-14, +0.0000000000000000, +0.11102230246251565E-14, +0.22204460492503131E-15, +0.66613381477509392E-15, +0.11102230246251565E-15, +0.88817841970012523E-15, -0.22204460492503131E-15, +0.12212453270876722E-14, +0.33306690738754696E-15, +0.11102230246251565E-14

181reltol = sqrt(epsilon(1._TKC))

182reltol

183+0.14901161193847656E-7

184isClose(data, atad(1:size(data)), reltol = reltol)

185T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

186call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

187

188lenData = getUnifRand(5, 100)

189lenData

190+39

191data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

192data

193+1.28969645269443293554299053107015913, +1.95565024666659013195708656218785133, +1.63014321883433945941226971094114257, +1.23913880852026150803969733351635547, +1.59363694064611305299665717856151775, +1.38387165731402309985578208907896846, +1.27505680358814162127292654457234238, +1.60434799340867529755413202462076357, +1.16297394895180507624831036913761916, +1.42058698662259159517699594223493154, +1.95729508744955238222783889058769475, +1.04223267507030943851369525575405618, +1.02220513185069743508015000295815254, +1.88337199697781714232937396616529640, +1.91061237139404935000022000036552852, +1.79982495312444613845786201643660337, +1.66043059880763822737409100347758473, +1.90398527922881202471038911264336091, +1.30502697519992461988221170463526756, +1.53742359052019752107942671785536062, +1.34637956432165482468769790984558720, +1.67812883270476469693111338294690016, +1.17334302425372764137425714378050201, +1.49201042971452177759081962016476380, +1.73392628917832629414625675713984195, +1.16688103675885257281639816902343631, +1.43867641165840050835777056743524663, +1.14281766828231525201897675405747898, +1.00423585896271045359452190664295563, +1.65588182579532595068514528004836311, +1.27651854621702081779411134182951915, +1.42746726752265609657199849833296556, +1.34396697087943066044964151067699473, +1.25173916078393722082748413757419072, +1.64645003586866486954823664570100627, +1.62756781167770057878812892266879461, +1.44327763654068938605626266230120488, +1.31844838368096511974563236417291470, +1.39346954191607548184433472414643297

194

195atad = getFFTI(getFFTF(data))

196atad

197+1.28969645269443293554299053107015932, +1.95565024666659013195708656218785133, +1.63014321883433945941226971094114257, +1.23913880852026150803969733351635528, +1.59363694064611305299665717856151794, +1.38387165731402309985578208907896865, +1.27505680358814162127292654457234277, +1.60434799340867529755413202462076338, +1.16297394895180507624831036913761954, +1.42058698662259159517699594223493154, +1.95729508744955238222783889058769514, +1.04223267507030943851369525575405579, +1.02220513185069743508015000295815293, +1.88337199697781714232937396616529640, +1.91061237139404935000022000036552891, +1.79982495312444613845786201643660337, +1.66043059880763822737409100347758473, +1.90398527922881202471038911264336053, +1.30502697519992461988221170463526776, +1.53742359052019752107942671785536023, +1.34637956432165482468769790984558700, +1.67812883270476469693111338294690035, +1.17334302425372764137425714378050162, +1.49201042971452177759081962016476380, +1.73392628917832629414625675713984195, +1.16688103675885257281639816902343631, +1.43867641165840050835777056743524663, +1.14281766828231525201897675405747898, +1.00423585896271045359452190664295524, +1.65588182579532595068514528004836350, +1.27651854621702081779411134182951857, +1.42746726752265609657199849833296575, +1.34396697087943066044964151067699473, +1.25173916078393722082748413757419091, +1.64645003586866486954823664570100646, +1.62756781167770057878812892266879461, +1.44327763654068938605626266230120450, +1.31844838368096511974563236417291508, +1.39346954191607548184433472414643297, +0.962964972193617926527988971292463659E-34, +0.192592994438723585305597794258492732E-33, +0.962964972193617926527988971292463659E-34, -0.288889491658085377958396691387739098E-33, +0.385185988877447170611195588516985464E-33, -0.674075480535532548569592279904724561E-33, +0.192592994438723585305597794258492732E-33, -0.481482486096808963263994485646231830E-33, +0.288889491658085377958396691387739098E-33, +0.288889491658085377958396691387739098E-33, +0.00000000000000000000000000000000000, +0.192592994438723585305597794258492732E-33, +0.385185988877447170611195588516985464E-33, -0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34, +0.00000000000000000000000000000000000, +0.962964972193617926527988971292463659E-34, +0.385185988877447170611195588516985464E-33, -0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34, +0.288889491658085377958396691387739098E-33, -0.192592994438723585305597794258492732E-33, +0.192592994438723585305597794258492732E-33, -0.385185988877447170611195588516985464E-33

198reltol = sqrt(epsilon(1._TKC))

199reltol

200+0.138777878078144567552953958511352539E-16

201isClose(data, atad(1:size(data)), reltol = reltol)

202T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

203call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

204

205lenData = getUnifRand(5, 100)

206lenData

207+15

208data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

209data

210(+1.55513668, +0.882237554E-1), (+1.93888223, +0.501858354), (+1.83041418, +0.569203615), (+1.82406723, +0.827316880), (+1.70868528, +0.297700942), (+1.11650467, +0.520372152), (+1.73033834, +0.580564082), (+1.45013690, +0.134989977), (+1.07377601, +0.806674957E-1), (+1.83532500, +0.189841509), (+1.79029226, +0.393585622), (+1.61856794, +0.783512533), (+1.23464060, +0.397461295), (+1.15773308, +0.482146442), (+1.41279554, +0.821135879)

211

212atad = getFFTI(getFFTF(data))

213atad

214(+1.55513680, +0.882237703E-1), (+1.93888223, +0.501858413), (+1.83041430, +0.569203615), (+1.82406688, +0.827316999), (+1.70868540, +0.297700882), (+1.11650467, +0.520372152), (+1.73033845, +0.580564141), (+1.45013690, +0.134989873), (+1.07377613, +0.806675106E-1), (+1.83532488, +0.189841583), (+1.79029226, +0.393585682), (+1.61856771, +0.783512354), (+1.23464060, +0.397461295), (+1.15773296, +0.482146412), (+1.41279566, +0.821135879), (+0.238418579E-6, +0.447034836E-7)

215reltol = sqrt(epsilon(1._TKC))

216reltol

217+0.345266977E-3

218isClose(data, atad(1:size(data)), reltol = reltol)

219T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

220call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

221

222lenData = getUnifRand(5, 100)

223lenData

224+86

225data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

226data

227(+1.7523484435390155, +0.15306111358422969), (+1.4057848831502144, +0.88044479008164234), (+1.8129601754804034, +0.45625969820419532), (+1.2373419971378263, +0.32531917382341735), (+1.4269860186583028, +0.32360974305888734), (+1.7291434020596474, +0.21397857717927027), (+1.0032988786593302, +0.50130168868261515), (+1.2357295787822826, +0.24397373852117044), (+1.9731830557512136, +0.56665857880765602), (+1.0213143935139279, +0.68385410680612979), (+1.6437271165183791, +0.83195932955458818), (+1.3923740767351243, +0.33751146940217913), (+1.3461541174025591, +0.24067285667774863), (+1.3791153523795718, +0.71007038585782500E-1), (+1.3311277742377337, +0.94133096926773407), (+1.1471402520614036, +0.38988956661490204), (+1.4681459792322686, +0.48033231700016088), (+1.0722453012697004, +0.24876842465494931), (+1.3356659521857908, +0.37702353164148716), (+1.6847405076127524, +0.20006896939941454), (+1.3803947915927925, +0.33900128378501437), (+1.3566187171130415, +0.59389497242189859), (+1.3988420486706061, +0.86402588628872490), (+1.9476421500461270, +0.27002966100870673), (+1.1198663256321990, +0.34690668205486697), (+1.5908689541546797, +0.15983975462041644), (+1.4952096835040871, +0.86309889358471992), (+1.3234011926409885, +0.82424295573771633), (+1.1980623291397214, +0.78511812545298465), (+1.3648891724499024, +0.55981585102110309), (+1.3142929829410850, +0.38279171792449562), (+1.6926966809981465, +0.17500144624836400), (+1.1605450565444728, +0.55621675986733166), (+1.3443412126042120, +0.18721611526811277), (+1.6876282979232813, +0.90132696033987658E-1), (+1.5834150042371520, +0.10121290991894150), (+1.7651666551053535, +0.18567227672878395), (+1.5206163366104555, +0.94085335979171358), (+1.5641399355105894, +0.60041218374882876), (+1.7501344131855729, +0.15091135603545880), (+1.7633016987108854, +0.59927493896364759E-1), (+1.1558286479130686, +0.90167998824570572), (+1.0032235096199806, +0.78273974113119649), (+1.6376167137432014, +0.22032218898118960), (+1.7194686055372066, +0.73819287994847382E-3), (+1.9344610722696804, +0.96585777748245583), (+1.2448624389022882, +0.46471836419931067), (+1.5043497683790870, +0.52361747322957608), (+1.8459956566138143, +0.82318270215942846E-1), (+1.2519910810112274, +0.56478825583398518), (+1.7969258288665912, +0.79646894264565804), (+1.3138335024707835, +0.53859075155975733), (+1.7590758217409028, +0.19368257895789409), (+1.2388743372963975, +0.39740666656536683), (+1.2578964824685381, +0.70905867197818551E-1), (+1.5173616533683902, +0.82656427488687234), (+1.9335210597384438, +0.21550744703717706), (+1.4172176961696028, +0.96539606222835528), (+1.3431079931128251, +0.20352643249433966), (+1.2365288274437902, +0.60803531375622644), (+1.3430955602806942, +0.78113426842845501), (+1.3169454669893494, +0.18334296749816170), (+1.6963403562408057, +0.41704947947311954), (+1.1313809491016831, +0.64922829699830409), (+1.5604912097545938, +0.27270230802923467), (+1.6671953101600583, +0.29375777019020810), (+1.3280750303724842, +0.14105163189617353), (+1.6164695855302784, +0.25734904592388408), (+1.3860051277568159, +0.40568203551662718), (+1.1586914968567992, +0.48135620291977721), (+1.6959414133034676, +0.27649713087782868), (+1.6553166935475223, +0.58189927475027425), (+1.8589149930220210, +0.86742264977136985), (+1.4298505586935422, +0.37177229375975296), (+1.9871070769552206, +0.33758349949727540), (+1.8393643686936261, +0.22181154336421138), (+1.5378974375170118, +0.55364327197716179), (+1.7215974742263687, +0.99329461171109634), (+1.3764356035376437, +0.10348841709575285E-1), (+1.5337439781866915, +0.74804004516589251), (+1.6940387609402363, +0.75014615891952796E-1), (+1.4068605881565368, +0.71451573079227615), (+1.1706441811687625, +0.32718482177521924), (+1.8871878641608659, +0.11866641464262884), (+1.1064210005193933, +0.24439449151092185), (+1.9602013029538203, +0.65948006428697259)

228

229atad = getFFTI(getFFTF(data))

230atad

231(+1.7523484435390158, +0.15306111358422966), (+1.4057848831502144, +0.88044479008164234), (+1.8129601754804034, +0.45625969820419565), (+1.2373419971378263, +0.32531917382341757), (+1.4269860186583025, +0.32360974305888751), (+1.7291434020596470, +0.21397857717927027), (+1.0032988786593298, +0.50130168868261515), (+1.2357295787822826, +0.24397373852117080), (+1.9731830557512138, +0.56665857880765635), (+1.0213143935139279, +0.68385410680612990), (+1.6437271165183787, +0.83195932955458840), (+1.3923740767351243, +0.33751146940217952), (+1.3461541174025589, +0.24067285667774890), (+1.3791153523795716, +0.71007038585782722E-1), (+1.3311277742377337, +0.94133096926773407), (+1.1471402520614036, +0.38988956661490259), (+1.4681459792322684, +0.48033231700016077), (+1.0722453012697002, +0.24876842465494922), (+1.3356659521857908, +0.37702353164148716), (+1.6847405076127526, +0.20006896939941499), (+1.3803947915927921, +0.33900128378501448), (+1.3566187171130411, +0.59389497242189848), (+1.3988420486706059, +0.86402588628872468), (+1.9476421500461265, +0.27002966100870707), (+1.1198663256321992, +0.34690668205486691), (+1.5908689541546797, +0.15983975462041655), (+1.4952096835040867, +0.86309889358471992), (+1.3234011926409883, +0.82424295573771633), (+1.1980623291397212, +0.78511812545298465), (+1.3648891724499022, +0.55981585102110321), (+1.3142929829410850, +0.38279171792449551), (+1.6926966809981459, +0.17500144624836433), (+1.1605450565444730, +0.55621675986733154), (+1.3443412126042120, +0.18721611526811249), (+1.6876282979232813, +0.90132696033987408E-1), (+1.5834150042371520, +0.10121290991894151), (+1.7651666551053538, +0.18567227672878381), (+1.5206163366104550, +0.94085335979171325), (+1.5641399355105894, +0.60041218374882854), (+1.7501344131855727, +0.15091135603545844), (+1.7633016987108854, +0.59927493896364536E-1), (+1.1558286479130686, +0.90167998824570561), (+1.0032235096199802, +0.78273974113119626), (+1.6376167137432014, +0.22032218898118960), (+1.7194686055372064, +0.73819287994827953E-3), (+1.9344610722696802, +0.96585777748245549), (+1.2448624389022882, +0.46471836419931062), (+1.5043497683790865, +0.52361747322957575), (+1.8459956566138143, +0.82318270215942568E-1), (+1.2519910810112271, +0.56478825583398495), (+1.7969258288665912, +0.79646894264565771), (+1.3138335024707835, +0.53859075155975700), (+1.7590758217409026, +0.19368257895789356), (+1.2388743372963971, +0.39740666656536650), (+1.2578964824685379, +0.70905867197818329E-1), (+1.5173616533683900, +0.82656427488687156), (+1.9335210597384438, +0.21550744703717692), (+1.4172176961696026, +0.96539606222835495), (+1.3431079931128247, +0.20352643249433927), (+1.2365288274437902, +0.60803531375622599), (+1.3430955602806942, +0.78113426842845457), (+1.3169454669893490, +0.18334296749816148), (+1.6963403562408055, +0.41704947947311910), (+1.1313809491016831, +0.64922829699830364), (+1.5604912097545940, +0.27270230802923490), (+1.6671953101600581, +0.29375777019020810), (+1.3280750303724838, +0.14105163189617312), (+1.6164695855302784, +0.25734904592388386), (+1.3860051277568159, +0.40568203551662690), (+1.1586914968567990, +0.48135620291977710), (+1.6959414133034674, +0.27649713087782857), (+1.6553166935475221, +0.58189927475027392), (+1.8589149930220208, +0.86742264977136996), (+1.4298505586935417, +0.37177229375975301), (+1.9871070769552199, +0.33758349949727506), (+1.8393643686936261, +0.22181154336421122), (+1.5378974375170118, +0.55364327197716134), (+1.7215974742263682, +0.99329461171109623), (+1.3764356035376439, +0.10348841709574785E-1), (+1.5337439781866915, +0.74804004516589184), (+1.6940387609402361, +0.75014615891952685E-1), (+1.4068605881565361, +0.71451573079227593), (+1.1706441811687625, +0.32718482177521879), (+1.8871878641608661, +0.11866641464262849), (+1.1064210005193931, +0.24439449151092155), (+1.9602013029538199, +0.65948006428697226), (+0.11102230246251565E-15, -0.55511151231257827E-16), (+0.44408920985006262E-15, -0.66613381477509392E-15), (+0.22204460492503131E-15, -0.22204460492503131E-15), (-0.11102230246251565E-15, -0.33306690738754696E-15), (-0.11102230246251565E-15, -0.22204460492503131E-15), (+0.0000000000000000, -0.33306690738754696E-15), (+0.22204460492503131E-15, -0.11102230246251565E-15), (+0.11102230246251565E-15, -0.33306690738754696E-15), (+0.33306690738754696E-15, +0.55511151231257827E-16), (+0.66613381477509392E-15, -0.23592239273284576E-15), (+0.0000000000000000, +0.27755575615628914E-15), (-0.11102230246251565E-15, +0.16653345369377348E-15), (-0.33306690738754696E-15, +0.30531133177191805E-15), (-0.11102230246251565E-15, +0.20816681711721685E-15), (+0.11102230246251565E-15, +0.41633363423443370E-15), (-0.44408920985006262E-15, +0.55511151231257827E-16), (+0.0000000000000000, +0.44408920985006262E-15), (-0.22204460492503131E-15, +0.30531133177191805E-15), (+0.11102230246251565E-15, +0.0000000000000000), (-0.11102230246251565E-15, +0.0000000000000000), (-0.44408920985006262E-15, -0.55511151231257827E-16), (+0.11102230246251565E-15, +0.0000000000000000), (+0.22204460492503131E-15, +0.36082248300317588E-15), (-0.22204460492503131E-15, +0.38857805861880479E-15), (+0.11102230246251565E-15, +0.38857805861880479E-15), (+0.44408920985006262E-15, +0.22204460492503131E-15), (+0.0000000000000000, +0.27755575615628914E-15), (+0.22204460492503131E-15, +0.22204460492503131E-15), (-0.11102230246251565E-15, +0.38857805861880479E-15), (+0.44408920985006262E-15, +0.27755575615628914E-15), (+0.11102230246251565E-15, +0.47184478546569153E-15), (+0.11102230246251565E-15, +0.47184478546569153E-15), (-0.22204460492503131E-15, +0.72164496600635175E-15), (+0.44408920985006262E-15, +0.83266726846886741E-15), (+0.44408920985006262E-15, +0.30531133177191805E-15), (+0.0000000000000000, -0.11102230246251565E-15), (+0.0000000000000000, +0.51347814888913490E-15), (+0.33306690738754696E-15, +0.44408920985006262E-15), (+0.0000000000000000, +0.38857805861880479E-15), (+0.0000000000000000, +0.58286708792820718E-15), (+0.0000000000000000, +0.80491169285323849E-15), (+0.44408920985006262E-15, +0.83266726846886741E-15)

232reltol = sqrt(epsilon(1._TKC))

233reltol

234+0.14901161193847656E-7

235isClose(data, atad(1:size(data)), reltol = reltol)

236T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

237call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

238

239lenData = getUnifRand(5, 100)

240lenData

241+56

242data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

243data

244(+1.46290111129553700109263740903476725, +0.530737599312938240241730145794013447), (+1.89738737453461656281734971813050877, +0.257920865907555267390886829583937201), (+1.24866065959042395147150664430418844, +0.760725969697222722436216134058670477E-1), (+1.67452519548991267864757161657537199, +0.452858506282380184688136414630273362E-1), (+1.78198905233530116741624062671696290, +0.821992099223893743269280854044845523), (+1.55114592820299556222181348505504851, +0.955748393980442076482315205036959129), (+1.77824968803204577977218607697534080, +0.849199123876041898596466768931272138), (+1.53101936132168131132805691067775964, +0.738287697327946004344823417923401167), (+1.03592745703359775842940039503514390, +0.670626967787352282477970551427876217), (+1.81743172957899527119048837389021512, +0.613361176046561428373003570709013512), (+1.10022508973449799695075483143376211, +0.308001749475131011023814980525580256E-1), (+1.86986377494973086917712492388564468, +0.319776408723631366455341896660359284), (+1.71829330454768934150313511423917716, +0.670748819459748688992514007158351875), (+1.77038885656868668309612429122578238, +0.919250687174312496570228758142714104), (+1.45747846808170662521900824470808495, +0.105140424078089061959967488702829501), (+1.17633415627476426101630770072624035, +0.147694803411880270366879601358064031), (+1.57498095334811668438326346908066160, +0.637816544927197420126637023656428253), (+1.41633541499117789986820237849742577, +0.994355073487330022670804631031342884), (+1.57312865765312397740665117288494637, +0.932770585278412464459569803090265867), (+1.28524541667814642587058409423098286, +0.577143602251626441449166943741088234), (+1.21027012393167403738151167010314456, +0.347893591499952741794926452863277430), (+1.05548478812923232903459088213189442, +0.235696005146037859108583241824113900), (+1.87700326730599273797465904991170861, +0.962108315930503908985558582303563388), (+1.64395159552264749290445767596423655, +0.896488050112675800522027776872635860), (+1.78947361453758975486534837664378547, +0.243641821970559846317046110614090308), (+1.63104071869449683709507250148336611, +0.903724125941368008067842823172839822), (+1.42537405108925145748395100595283687, +0.994655230035858481418601827859190560), (+1.08485204508092598554042995924370089, +0.712504299086707274385083698862619118), (+1.52307473132197700479075447982663251, +0.988893249911729866983173870296405226), (+1.20091554575335329263825522260206370, +0.256199153634917066521004540425726562E-3), (+1.95843258966733152015215191398266938, +0.304474269497061213018044536009430684), (+1.24265492031326406704498575904153587, +0.911625299015586872680407198189128189), (+1.10274819179888459006199633552975246, +0.239693585422508268023381784017804866), (+1.23466697007532641928061984377590258, +0.592583888441045905989498592608231944E-1), (+1.16287975099917023226566597210969033, +0.526574346917629164379492899523854434), (+1.59059416752163775314640732473232719, +0.288961091912690649216232706994056183), (+1.66150656231675696340674014811592156, +0.660294240832614415206042518790578976), (+1.37514527544667009436151198699041296, +0.647927829466434373092664387565104236), (+1.74649017504001014042706957487820724, +0.855686679860541793987215714193255760), (+1.00139855825572943521463719963299698, +0.745230155354178269967918662355208790), (+1.05397684948342709867769451571810746, +0.578688690295834929814444825441824069), (+1.95858402767600652225199870818505423, +0.894249213659737825197742466992611138), (+1.23389016350107366362041800442599334, +0.603644967830379504797742777742015583), (+1.43373650417782276383606695294583912, +0.587106731774661809243471611767703944E-1), (+1.97691999027737928750710906563212901, +0.726610809571758785962629723853493474), (+1.03526572014201669444494953109720018, +0.772391698143893074650320585539401742), (+1.15873862487167318588266171935903178, +0.320618912330195284250095665615040746), (+1.59916292608802202890600849870465913, +0.877203317173817241371109779103686553), (+1.06469501378892244780563225257898227, +0.570931978402402250040476398180340054), (+1.15780176238920650389803650169324824, +0.416432867643757293843949224883546191), (+1.53941973126613787465304949466606314, +0.427143608463138276646993773366596048), (+1.47423340467812557418441051963622045, +0.322722996996796109750628412117738037), (+1.17037520126779261654224946786787477, +0.673843064970985367512106980525883228), (+1.24607592311581848483477697747963026, +0.676333388794572407756660258186223089), (+1.40509231272083663112626054954690094, +0.884535051199748445760310078441905696E-1), (+1.72494034734067818642763537342393508, +0.231284645639306270089655984264879792)

245

246atad = getFFTI(getFFTF(data))

247atad

248(+1.46290111129553700109263740903476706, +0.530737599312938240241730145794013447), (+1.89738737453461656281734971813050877, +0.257920865907555267390886829583937153), (+1.24866065959042395147150664430418805, +0.760725969697222722436216134058671921E-1), (+1.67452519548991267864757161657537160, +0.452858506282380184688136414630273603E-1), (+1.78198905233530116741624062671696329, +0.821992099223893743269280854044845523), (+1.55114592820299556222181348505504871, +0.955748393980442076482315205036959225), (+1.77824968803204577977218607697534061, +0.849199123876041898596466768931271849), (+1.53101936132168131132805691067775964, +0.738287697327946004344823417923400974), (+1.03592745703359775842940039503514390, +0.670626967787352282477970551427876313), (+1.81743172957899527119048837389021512, +0.613361176046561428373003570709013608), (+1.10022508973449799695075483143376192, +0.308001749475131011023814980525581700E-1), (+1.86986377494973086917712492388564411, +0.319776408723631366455341896660359476), (+1.71829330454768934150313511423917716, +0.670748819459748688992514007158351971), (+1.77038885656868668309612429122578200, +0.919250687174312496570228758142714393), (+1.45747846808170662521900824470808495, +0.105140424078089061959967488702829344), (+1.17633415627476426101630770072624016, +0.147694803411880270366879601358063982), (+1.57498095334811668438326346908066160, +0.637816544927197420126637023656428156), (+1.41633541499117789986820237849742577, +0.994355073487330022670804631031342884), (+1.57312865765312397740665117288494617, +0.932770585278412464459569803090265770), (+1.28524541667814642587058409423098248, +0.577143602251626441449166943741088041), (+1.21027012393167403738151167010314475, +0.347893591499952741794926452863277333), (+1.05548478812923232903459088213189384, +0.235696005146037859108583241824113996), (+1.87700326730599273797465904991170861, +0.962108315930503908985558582303563292), (+1.64395159552264749290445767596423674, +0.896488050112675800522027776872635571), (+1.78947361453758975486534837664378547, +0.243641821970559846317046110614090308), (+1.63104071869449683709507250148336611, +0.903724125941368008067842823172839822), (+1.42537405108925145748395100595283687, +0.994655230035858481418601827859190271), (+1.08485204508092598554042995924370051, +0.712504299086707274385083698862618829), (+1.52307473132197700479075447982663270, +0.988893249911729866983173870296404938), (+1.20091554575335329263825522260206370, +0.256199153634917066521004540425509895E-3), (+1.95843258966733152015215191398266938, +0.304474269497061213018044536009430444), (+1.24265492031326406704498575904153587, +0.911625299015586872680407198189128093), (+1.10274819179888459006199633552975246, +0.239693585422508268023381784017805035), (+1.23466697007532641928061984377590258, +0.592583888441045905989498592608232305E-1), (+1.16287975099917023226566597210969014, +0.526574346917629164379492899523854242), (+1.59059416752163775314640732473232681, +0.288961091912690649216232706994056183), (+1.66150656231675696340674014811592175, +0.660294240832614415206042518790579168), (+1.37514527544667009436151198699041296, +0.647927829466434373092664387565104525), (+1.74649017504001014042706957487820704, +0.855686679860541793987215714193255856), (+1.00139855825572943521463719963299698, +0.745230155354178269967918662355208694), (+1.05397684948342709867769451571810746, +0.578688690295834929814444825441823972), (+1.95858402767600652225199870818505423, +0.894249213659737825197742466992610849), (+1.23389016350107366362041800442599334, +0.603644967830379504797742777742015487), (+1.43373650417782276383606695294583855, +0.587106731774661809243471611767705629E-1), (+1.97691999027737928750710906563212939, +0.726610809571758785962629723853493281), (+1.03526572014201669444494953109719980, +0.772391698143893074650320585539401838), (+1.15873862487167318588266171935903140, +0.320618912330195284250095665615040698), (+1.59916292608802202890600849870465894, +0.877203317173817241371109779103686457), (+1.06469501378892244780563225257898246, +0.570931978402402250040476398180340054), (+1.15780176238920650389803650169324824, +0.416432867643757293843949224883546046), (+1.53941973126613787465304949466606334, +0.427143608463138276646993773366595903), (+1.47423340467812557418441051963622026, +0.322722996996796109750628412117738133), (+1.17037520126779261654224946786787477, +0.673843064970985367512106980525883420), (+1.24607592311581848483477697747962988, +0.676333388794572407756660258186223474), (+1.40509231272083663112626054954690075, +0.884535051199748445760310078441905215E-1), (+1.72494034734067818642763537342393489, +0.231284645639306270089655984264879840), (+0.962964972193617926527988971292463659E-34, +0.192592994438723585305597794258492732E-33), (+0.288889491658085377958396691387739098E-33, +0.962964972193617926527988971292463659E-34), (+0.192592994438723585305597794258492732E-33, +0.962964972193617926527988971292463659E-34), (+0.00000000000000000000000000000000000, -0.481482486096808963263994485646231830E-34), (-0.962964972193617926527988971292463659E-34, -0.337037740267766274284796139952362281E-33), (-0.962964972193617926527988971292463659E-34, +0.240741243048404481631997242823115915E-34), (-0.385185988877447170611195588516985464E-33, +0.481482486096808963263994485646231830E-34), (+0.00000000000000000000000000000000000, -0.962964972193617926527988971292463659E-34)

249reltol = sqrt(epsilon(1._TKC))

250reltol

251+0.138777878078144567552953958511352539E-16

252isClose(data, atad(1:size(data)), reltol = reltol)

253T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

254call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

255

256lenData = getUnifRand(5, 100)

257lenData

258+58

259data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

260data

261+1.17676711, +1.91840506, +1.49997938, +1.40119064, +1.29037809, +1.90773606, +1.50069952, +1.49362135, +1.53755999, +1.01875234, +1.47443032, +1.81753337, +1.57329226, +1.82436132, +1.48358631, +1.24646354, +1.85615826, +1.23944783, +1.49950480, +1.54040599, +1.55134821, +1.86416483, +1.84049535, +1.97758079, +1.79388547, +1.95859981, +1.75875926, +1.32107973, +1.18585908, +1.17436314, +1.03051543, +1.51832020, +1.77672493, +1.20163727, +1.56046164, +1.05969143, +1.49700665, +1.91313004, +1.23474371, +1.14260900, +1.07433975, +1.37889361, +1.27916086, +1.95355010, +1.36452103, +1.25751543, +1.55337763, +1.51969576, +1.44194627, +1.52850580, +1.13552356, +1.09138775, +1.24351823, +1.21281254, +1.06005478, +1.84585392, +1.14300120, +1.25218773

262

263atad = getFFTI(getFFTF(data))

264atad

265+1.17676687, +1.91840506, +1.49997902, +1.40119088, +1.29037797, +1.90773606, +1.50069904, +1.49362147, +1.53755999, +1.01875246, +1.47443008, +1.81753325, +1.57329226, +1.82436132, +1.48358607, +1.24646366, +1.85615814, +1.23944771, +1.49950457, +1.54040611, +1.55134797, +1.86416471, +1.84049511, +1.97758090, +1.79388559, +1.95859981, +1.75875914, +1.32107997, +1.18585920, +1.17436314, +1.03051519, +1.51832032, +1.77672482, +1.20163727, +1.56046152, +1.05969179, +1.49700654, +1.91313004, +1.23474360, +1.14260900, +1.07433987, +1.37889373, +1.27916074, +1.95355010, +1.36452103, +1.25751543, +1.55337739, +1.51969588, +1.44194615, +1.52850568, +1.13552332, +1.09138787, +1.24351811, +1.21281254, +1.06005478, +1.84585392, +1.14300120, +1.25218773, -0.357627869E-6, +0.298023224E-6, +0.596046448E-7, +0.596046448E-7, -0.178813934E-6, +0.357627869E-6

266reltol = sqrt(epsilon(1._TKC))

267reltol

268+0.345266977E-3

269isClose(data, atad(1:size(data)), reltol = reltol)

270T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

271call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

272

273lenData = getUnifRand(5, 100)

274lenData

275+90

276data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

277data

278+1.3912325898023845, +1.7610863931878289, +1.2291141816386699, +1.4381494277947469, +1.6963616701829660, +1.6704579791319556, +1.8825351569048165, +1.9603921911392881, +1.8113802568980124, +1.2710702786916672, +1.9241971436437064, +1.2673643272804889, +1.4397172946805963, +1.2931773294185742, +1.3198260918236322, +1.4700992138871543, +1.1305053381472945, +1.0124926252200044, +1.5666048803846206, +1.9530895612794956, +1.9090544215536545, +1.7636525848692854, +1.0715780342122809, +1.8825044339979007, +1.5246248256338157, +1.1199836828771679, +1.4381150523712614, +1.4367802202270996, +1.7514766380305926, +1.6272593550595580, +1.4635341218014692, +1.3066937772959442, +1.3367354226797969, +1.6248836487160081, +1.7518608393629362, +1.3521247548454021, +1.2718561349280324, +1.9434739938756587, +1.6934007952552901, +1.4979610293989718, +1.3057802439962676, +1.5489017191057934, +1.4260496764124477, +1.8225736805340276, +1.4169700439049890, +1.1717249773593976, +1.3951714267791844, +1.0591076088081270, +1.4394547640584163, +1.6412905675104152, +1.3064207150860931, +1.1471195895905550, +1.4128439307894953, +1.9028553477465939, +1.8699552905581429, +1.0277135433505462, +1.8118208055829614, +1.3499942169386121, +1.2936143445743680, +1.3144052641656245, +1.5863673433463383, +1.5633864023888746, +1.5260490511072633, +1.3020904235205677, +1.0266701539474585, +1.2394230881612609, +1.0849646587908670, +1.3536097364053585, +1.0606055000411807, +1.4714880509494981, +1.7143012574114294, +1.0119676458529989, +1.2448005299745275, +1.0835108818205756, +1.2106064755616932, +1.9406642556389004, +1.4880043708429924, +1.8489214986844464, +1.7120239929101237, +1.8821867744871077, +1.6996679864651729, +1.1041568228922707, +1.7973466672535556, +1.8092081788881966, +1.7210668691083628, +1.9564241714705701, +1.2489214297971378, +1.9853848522222499, +1.2002782044471947, +1.2707690802535967

279

280atad = getFFTI(getFFTF(data))

281atad

282+1.3912325898023847, +1.7610863931878289, +1.2291141816386701, +1.4381494277947473, +1.6963616701829656, +1.6704579791319558, +1.8825351569048161, +1.9603921911392885, +1.8113802568980124, +1.2710702786916674, +1.9241971436437066, +1.2673643272804893, +1.4397172946805961, +1.2931773294185744, +1.3198260918236320, +1.4700992138871545, +1.1305053381472945, +1.0124926252200046, +1.5666048803846206, +1.9530895612794956, +1.9090544215536540, +1.7636525848692852, +1.0715780342122807, +1.8825044339979009, +1.5246248256338157, +1.1199836828771685, +1.4381150523712614, +1.4367802202270998, +1.7514766380305922, +1.6272593550595582, +1.4635341218014686, +1.3066937772959446, +1.3367354226797974, +1.6248836487160077, +1.7518608393629367, +1.3521247548454016, +1.2718561349280328, +1.9434739938756584, +1.6934007952552901, +1.4979610293989714, +1.3057802439962680, +1.5489017191057930, +1.4260496764124480, +1.8225736805340276, +1.4169700439049895, +1.1717249773593972, +1.3951714267791848, +1.0591076088081270, +1.4394547640584165, +1.6412905675104148, +1.3064207150860936, +1.1471195895905550, +1.4128439307894958, +1.9028553477465935, +1.8699552905581425, +1.0277135433505462, +1.8118208055829614, +1.3499942169386117, +1.2936143445743680, +1.3144052641656239, +1.5863673433463386, +1.5633864023888742, +1.5260490511072629, +1.3020904235205673, +1.0266701539474585, +1.2394230881612602, +1.0849646587908668, +1.3536097364053585, +1.0606055000411807, +1.4714880509494979, +1.7143012574114294, +1.0119676458529985, +1.2448005299745275, +1.0835108818205756, +1.2106064755616930, +1.9406642556389004, +1.4880043708429926, +1.8489214986844462, +1.7120239929101235, +1.8821867744871073, +1.6996679864651734, +1.1041568228922700, +1.7973466672535552, +1.8092081788881962, +1.7210668691083630, +1.9564241714705688, +1.2489214297971376, +1.9853848522222488, +1.2002782044471951, +1.2707690802535963, +0.55511151231257827E-15, -0.55511151231257827E-15, +0.12212453270876722E-14, +0.11102230246251565E-15, +0.99920072216264089E-15, -0.33306690738754696E-15, +0.44408920985006262E-15, -0.44408920985006262E-15, -0.33306690738754696E-15, -0.22204460492503131E-15, +0.11102230246251565E-15, +0.44408920985006262E-15, +0.0000000000000000, +0.0000000000000000, +0.0000000000000000, -0.11102230246251565E-15, +0.0000000000000000, +0.0000000000000000, +0.11102230246251565E-15, +0.77715611723760958E-15, -0.11102230246251565E-15, +0.11102230246251565E-15, +0.33306690738754696E-15, +0.11102230246251565E-15, +0.0000000000000000, +0.11102230246251565E-15, +0.11102230246251565E-15, +0.88817841970012523E-15, -0.33306690738754696E-15, +0.77715611723760958E-15, +0.66613381477509392E-15, +0.44408920985006262E-15, +0.11102230246251565E-15, +0.66613381477509392E-15, -0.11102230246251565E-15, +0.13322676295501878E-14, -0.11102230246251565E-15, +0.14432899320127035E-14

283reltol = sqrt(epsilon(1._TKC))

284reltol

285+0.14901161193847656E-7

286isClose(data, atad(1:size(data)), reltol = reltol)

287T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

288call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

289

290lenData = getUnifRand(5, 100)

291lenData

292+60

293data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

294data

295+1.11636744445086433160783562505175333, +1.34593230419464460288917132943124801, +1.11938049874798999197775470952238214, +1.65921064566455055914845348561102522, +1.46520655895012511343537929532935164, +1.91618731963669466403846058973994817, +1.84937338232412443910042612799608798, +1.89910184521471528029741648288437560, +1.28907221445202273345572257717836964, +1.33019877419271743705828080978210942, +1.11714338329016079147484134526236904, +1.22673472803629293296284998655947336, +1.49188792687816395236998835360082896, +1.28087321006149911498443031385258032, +1.41934121192172771817767446612873361, +1.14943592981302098915868917506265933, +1.28544194093493258850302021400026921, +1.57815270160955728240829920459645849, +1.86362598054289629800413323474830948, +1.22704960006863614002829471125659876, +1.93171160687143913919071032358728148, +1.87628352843603669589026902262427750, +1.46876143222629513132685439361800095, +1.06091718456810183585923344397920550, +1.41440394097432604618940572642203028, +1.46462758142422647657681239488148242, +1.57232736639019480391982463694789883, +1.85419225682808117819837666105414159, +1.05573197060421996880536723944942026, +1.23944402775619594651308354361641006, +1.27367430873454272641203000163064538, +1.10747999530205019048601576440570094, +1.61380006413591642527853868974688692, +1.90908449846650531689484839266356674, +1.86758817169456047762166550413844555, +1.51819719795089602431287714056030207, +1.61779276165125246694930337534687709, +1.71946112106915803275014530736545458, +1.92931768537233582329951338703222848, +1.00514569500226695713914087162001723, +1.70389417034231895210332080263247463, +1.64582978794323487026059963639871236, +1.27377418938985112924895823609314498, +1.91348033168948510686373183476384320, +1.01755610715278491186841167207784564, +1.17544009754482639034953961585863137, +1.09010796876904758898820614999493159, +1.87434293089730169871232092729438316, +1.43095902912924875068260445919986041, +1.37854634303592060874623560974275166, +1.27542537853676194822970288512361239, +1.28957113207470712350006433222642560, +1.02055849165477181238963898553023429, +1.03352825816545428418251873348046357, +1.27244784801858396663533868373528447, +1.70766204512101214552264129621333990, +1.38557947066446393181675035089280442, +1.90843597056417331723513251777945733, +1.35387134151703480839111607976070173, +1.48664628594201396658570500272024615

296

297atad = getFFTI(getFFTF(data))

298atad

299+1.11636744445086433160783562505175313, +1.34593230419464460288917132943124763, +1.11938049874798999197775470952238214, +1.65921064566455055914845348561102503, +1.46520655895012511343537929532935164, +1.91618731963669466403846058973994836, +1.84937338232412443910042612799608817, +1.89910184521471528029741648288437541, +1.28907221445202273345572257717836926, +1.33019877419271743705828080978210904, +1.11714338329016079147484134526236885, +1.22673472803629293296284998655947316, +1.49188792687816395236998835360082934, +1.28087321006149911498443031385257993, +1.41934121192172771817767446612873400, +1.14943592981302098915868917506265876, +1.28544194093493258850302021400026902, +1.57815270160955728240829920459645791, +1.86362598054289629800413323474830948, +1.22704960006863614002829471125659856, +1.93171160687143913919071032358728129, +1.87628352843603669589026902262427750, +1.46876143222629513132685439361800095, +1.06091718456810183585923344397920511, +1.41440394097432604618940572642202989, +1.46462758142422647657681239488148204, +1.57232736639019480391982463694789883, +1.85419225682808117819837666105414140, +1.05573197060421996880536723944941987, +1.23944402775619594651308354361640987, +1.27367430873454272641203000163064557, +1.10747999530205019048601576440570036, +1.61380006413591642527853868974688692, +1.90908449846650531689484839266356616, +1.86758817169456047762166550413844555, +1.51819719795089602431287714056030188, +1.61779276165125246694930337534687689, +1.71946112106915803275014530736545477, +1.92931768537233582329951338703222867, +1.00514569500226695713914087162001665, +1.70389417034231895210332080263247463, +1.64582978794323487026059963639871198, +1.27377418938985112924895823609314498, +1.91348033168948510686373183476384300, +1.01755610715278491186841167207784545, +1.17544009754482639034953961585863137, +1.09010796876904758898820614999493197, +1.87434293089730169871232092729438316, +1.43095902912924875068260445919986041, +1.37854634303592060874623560974275127, +1.27542537853676194822970288512361278, +1.28957113207470712350006433222642541, +1.02055849165477181238963898553023429, +1.03352825816545428418251873348046357, +1.27244784801858396663533868373528447, +1.70766204512101214552264129621333951, +1.38557947066446393181675035089280423, +1.90843597056417331723513251777945694, +1.35387134151703480839111607976070173, +1.48664628594201396658570500272024615, -0.481482486096808963263994485646231830E-33, -0.577778983316170755916793382775478196E-33, +0.00000000000000000000000000000000000, -0.577778983316170755916793382775478196E-33

300reltol = sqrt(epsilon(1._TKC))

301reltol

302+0.138777878078144567552953958511352539E-16

303isClose(data, atad(1:size(data)), reltol = reltol)

304T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

305call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

306

307lenData = getUnifRand(5, 100)

308lenData

309+9

310data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

311data

312(+1.62218630, +0.455783010), (+1.70293176, +0.342239797), (+1.62470531, +0.274769783), (+1.57802761, +0.395866513), (+1.47800434, +0.790784836), (+1.47687185, +0.152781546), (+1.28653693, +0.439320445), (+1.40704012, +0.841150105), (+1.55351806, +0.332513571)

313

314atad = getFFTI(getFFTF(data))

315atad

316(+1.62218642, +0.455782980), (+1.70293188, +0.342239857), (+1.62470508, +0.274769843), (+1.57802725, +0.395866692), (+1.47800446, +0.790784717), (+1.47687197, +0.152781546), (+1.28653693, +0.439320147), (+1.40703988, +0.841149926), (+1.55351806, +0.332513541), (-0.119209290E-6, -0.745058060E-7), (+0.119209290E-6, -0.119209290E-6), (+0.178813934E-6, -0.745058060E-7), (+0.00000000, +0.894069672E-7), (-0.596046448E-7, -0.298023224E-7), (-0.596046448E-7, +0.223517418E-6), (+0.178813934E-6, +0.894069672E-7)

317reltol = sqrt(epsilon(1._TKC))

318reltol

319+0.345266977E-3

320isClose(data, atad(1:size(data)), reltol = reltol)

321T, T, T, T, T, T, T, T, T

322call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

323

324lenData = getUnifRand(5, 100)

325lenData

326+80

327data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

328data

329(+1.6365336508786466, +0.75657752946540335), (+1.9040470265697358, +0.32453559285510158), (+1.1248535309165144, +0.84397821084307378), (+1.1481812454715832, +0.39588740630733665), (+1.7251191687272511, +0.24716371401809156E-1), (+1.4328294239932253, +0.62602670489140455), (+1.4465336653101910, +0.73652270862997538), (+1.9337757503853676, +0.64253268263637087), (+1.3932271827911868, +0.10986883585534268), (+1.1310697956526561, +0.80653317807223568), (+1.5559643220288355, +0.61776652828751677), (+1.5868193192052007, +0.85135118862491699E-1), (+1.1273996580195531, +0.92232628856039778), (+1.4857757980013278, +0.94546064981760702), (+1.5433426820913549, +0.40519878917757057), (+1.2836240233141134, +0.43169822321079621), (+1.8484297437392860, +0.35480877547183098), (+1.5865060313689532, +0.42885739712565174), (+1.9246163994599725, +0.35396235233575124), (+1.0356405397337620, +0.99505843085569246), (+1.3862810703118695, +0.50269173615517604), (+1.0386312143503784, +0.66360004550779950), (+1.4402755114347938, +0.12606041487114961), (+1.2189385161593547, +0.78411380500184136), (+1.1392196942390580, +0.57386672883167100), (+1.6567596841473038, +0.75464418104906617), (+1.5250439016539534, +0.23758046848665471), (+1.8105037954086871, +0.94376020067606359), (+1.5719127286774310, +0.98772118845113166), (+1.0544162402856034, +0.27913278094267924), (+1.5249343177586590, +0.90335838690556447), (+1.1616675300131372, +0.61813562222824403), (+1.8189197669576405, +0.24592486518232493), (+1.4476470943247677, +0.21095356074061400), (+1.6037766436344283, +0.55870185700512176), (+1.1747565916483151, +0.84579602686763566E-1), (+1.6095186597830251, +0.96647429804631835), (+1.1644745263105549, +0.65591349134586729), (+1.3630426908489091, +0.97518256165606243), (+1.8243389508201213, +0.34518772510206974), (+1.1019518413707394, +0.20370405897653943), (+1.5006982828685498, +0.41966650430645458), (+1.2964461554553479, +0.61500227257944251), (+1.9885689556311361, +0.23615129871791873), (+1.3165438661170807, +0.13012250933193792), (+1.1249745449878870, +0.49220739492234833), (+1.2100647194601368, +0.92868075618822965), (+1.9179557595954428, +0.65504655281966029E-2), (+1.4061702433245258, +0.18103380796283597), (+1.8167935068529375, +0.79193727209943798), (+1.4746131670705405, +0.28795915378566006), (+1.8822091530821443, +0.71006034874993340), (+1.6704081064701852, +0.28743533597535875), (+1.3612501928464475, +0.77776346940949348), (+1.8120223904093073, +0.66887306786545053), (+1.4489762848184851, +0.34694667670594737), (+1.9674121120800632, +0.54153394107313724), (+1.1501079790276931, +0.27662922976119086), (+1.5257820873651662, +0.79987812883337961), (+1.3692153356552863, +0.99231098747433977), (+1.2015417995978694, +0.59042266650244268), (+1.5814847014652691, +0.76346043090319904), (+1.4731723456042998, +0.45046850038466868E-1), (+1.1750265620147422, +0.78977313773799018), (+1.9082361764259619, +0.92271879868533913), (+1.1830756285173565, +0.87026630166410190), (+1.7008877897144332, +0.95136968621740359), (+1.4132626715816170, +0.25269586283241741), (+1.9644634928257450, +0.76601051251737684), (+1.9341067553629947, +0.28038482129888231), (+1.3365707449401245, +0.24668386938568587), (+1.6590948363539815, +0.47405483992124409), (+1.2800418524269510, +0.32315202406226395), (+1.2114858370083632, +0.62596763386521581), (+1.8201643200599014, +0.97591440541612329), (+1.3615277281110427, +0.96516064321614814), (+1.4587186799765335, +0.34090469579520111), (+1.0617868861194544, +0.41998638507912833), (+1.7343855950656482, +0.69039077810603466), (+1.5295168611364374, +0.13728783720704185E-1)

330

331atad = getFFTI(getFFTF(data))

332atad

333(+1.6365336508786466, +0.75657752946540335), (+1.9040470265697356, +0.32453559285510181), (+1.1248535309165142, +0.84397821084307378), (+1.1481812454715832, +0.39588740630733699), (+1.7251191687272509, +0.24716371401808768E-1), (+1.4328294239932249, +0.62602670489140477), (+1.4465336653101908, +0.73652270862997538), (+1.9337757503853676, +0.64253268263637109), (+1.3932271827911871, +0.10986883585534282), (+1.1310697956526561, +0.80653317807223601), (+1.5559643220288355, +0.61776652828751688), (+1.5868193192052009, +0.85135118862492032E-1), (+1.1273996580195531, +0.92232628856039778), (+1.4857757980013273, +0.94546064981760725), (+1.5433426820913547, +0.40519878917757102), (+1.2836240233141130, +0.43169822321079621), (+1.8484297437392856, +0.35480877547183098), (+1.5865060313689527, +0.42885739712565185), (+1.9246163994599725, +0.35396235233575113), (+1.0356405397337616, +0.99505843085569246), (+1.3862810703118691, +0.50269173615517593), (+1.0386312143503784, +0.66360004550779950), (+1.4402755114347938, +0.12606041487114966), (+1.2189385161593544, +0.78411380500184136), (+1.1392196942390580, +0.57386672883167100), (+1.6567596841473036, +0.75464418104906605), (+1.5250439016539534, +0.23758046848665482), (+1.8105037954086871, +0.94376020067606370), (+1.5719127286774310, +0.98772118845113144), (+1.0544162402856032, +0.27913278094267918), (+1.5249343177586587, +0.90335838690556425), (+1.1616675300131372, +0.61813562222824403), (+1.8189197669576405, +0.24592486518232465), (+1.4476470943247675, +0.21095356074061383), (+1.6037766436344287, +0.55870185700512121), (+1.1747565916483151, +0.84579602686763636E-1), (+1.6095186597830256, +0.96647429804631801), (+1.1644745263105547, +0.65591349134586729), (+1.3630426908489093, +0.97518256165606232), (+1.8243389508201213, +0.34518772510206963), (+1.1019518413707394, +0.20370405897653934), (+1.5006982828685498, +0.41966650430645441), (+1.2964461554553481, +0.61500227257944251), (+1.9885689556311363, +0.23615129871791912), (+1.3165438661170807, +0.13012250933193775), (+1.1249745449878867, +0.49220739492234838), (+1.2100647194601373, +0.92868075618822921), (+1.9179557595954424, +0.65504655281969221E-2), (+1.4061702433245258, +0.18103380796283586), (+1.8167935068529371, +0.79193727209943809), (+1.4746131670705407, +0.28795915378565978), (+1.8822091530821443, +0.71006034874993340), (+1.6704081064701850, +0.28743533597535853), (+1.3612501928464473, +0.77776346940949326), (+1.8120223904093078, +0.66887306786544998), (+1.4489762848184848, +0.34694667670594703), (+1.9674121120800629, +0.54153394107313702), (+1.1501079790276929, +0.27662922976119098), (+1.5257820873651664, +0.79987812883337928), (+1.3692153356552863, +0.99231098747433966), (+1.2015417995978694, +0.59042266650244257), (+1.5814847014652686, +0.76346043090319871), (+1.4731723456042998, +0.45046850038466778E-1), (+1.1750265620147420, +0.78977313773798985), (+1.9082361764259619, +0.92271879868533913), (+1.1830756285173560, +0.87026630166410202), (+1.7008877897144332, +0.95136968621740348), (+1.4132626715816170, +0.25269586283241752), (+1.9644634928257452, +0.76601051251737684), (+1.9341067553629947, +0.28038482129888226), (+1.3365707449401245, +0.24668386938568557), (+1.6590948363539815, +0.47405483992124403), (+1.2800418524269510, +0.32315202406226406), (+1.2114858370083625, +0.62596763386521581), (+1.8201643200599009, +0.97591440541612329), (+1.3615277281110425, +0.96516064321614836), (+1.4587186799765335, +0.34090469579520116), (+1.0617868861194542, +0.41998638507912767), (+1.7343855950656482, +0.69039077810603411), (+1.5295168611364369, +0.13728783720703852E-1), (+0.0000000000000000, +0.11102230246251565E-15), (-0.44408920985006262E-15, -0.22204460492503131E-15), (+0.66613381477509392E-15, -0.11102230246251565E-15), (+0.0000000000000000, -0.38857805861880479E-15), (+0.33306690738754696E-15, +0.22204460492503131E-15), (+0.33306690738754696E-15, -0.22204460492503131E-15), (+0.77715611723760958E-15, -0.55511151231257827E-16), (+0.33306690738754696E-15, -0.33306690738754696E-15), (+0.33306690738754696E-15, +0.55511151231257827E-16), (-0.22204460492503131E-15, -0.55511151231257827E-16), (+0.22204460492503131E-15, -0.33306690738754696E-15), (-0.11102230246251565E-15, -0.33306690738754696E-15), (+0.55511151231257827E-15, +0.22204460492503131E-15), (+0.11102230246251565E-15, -0.16653345369377348E-15), (+0.44408920985006262E-15, -0.33306690738754696E-15), (+0.22204460492503131E-15, +0.0000000000000000), (+0.22204460492503131E-15, +0.29143354396410359E-15), (-0.44408920985006262E-15, -0.11102230246251565E-15), (+0.22204460492503131E-15, +0.16653345369377348E-15), (-0.11102230246251565E-15, +0.41633363423443370E-16), (-0.11102230246251565E-15, +0.33306690738754696E-15), (-0.22204460492503131E-15, +0.55511151231257827E-16), (+0.44408920985006262E-15, +0.27755575615628914E-15), (+0.11102230246251565E-15, +0.24980018054066022E-15), (+0.11102230246251565E-15, +0.19428902930940239E-15), (-0.44408920985006262E-15, +0.55511151231257827E-16), (+0.33306690738754696E-15, +0.0000000000000000), (-0.11102230246251565E-15, -0.27755575615628914E-15), (+0.22204460492503131E-15, +0.16653345369377348E-15), (+0.11102230246251565E-15, -0.16653345369377348E-15), (+0.33306690738754696E-15, +0.22204460492503131E-15), (+0.22204460492503131E-15, +0.20816681711721685E-15), (+0.11102230246251565E-15, +0.33306690738754696E-15), (-0.33306690738754696E-15, +0.0000000000000000), (+0.55511151231257827E-15, +0.49960036108132044E-15), (+0.11102230246251565E-15, +0.11102230246251565E-15), (+0.22204460492503131E-15, +0.44408920985006262E-15), (+0.11102230246251565E-15, +0.27755575615628914E-15), (+0.33306690738754696E-15, +0.61062266354383610E-15), (+0.33306690738754696E-15, +0.44408920985006262E-15), (+0.44408920985006262E-15, +0.44408920985006262E-15), (+0.44408920985006262E-15, +0.27755575615628914E-16), (+0.44408920985006262E-15, +0.11102230246251565E-15), (+0.55511151231257827E-15, +0.27755575615628914E-15), (+0.0000000000000000, +0.49960036108132044E-15), (+0.11102230246251565E-15, +0.61062266354383610E-15), (+0.22204460492503131E-15, +0.70082828429463007E-15), (+0.22204460492503131E-15, +0.66613381477509392E-15)

334reltol = sqrt(epsilon(1._TKC))

335reltol

336+0.14901161193847656E-7

337isClose(data, atad(1:size(data)), reltol = reltol)

338T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

339call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

340

341lenData = getUnifRand(5, 100)

342lenData

343+87

344data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

345data

346(+1.87729445303670763349742018393490362, +0.108714727751165324181533020586953283), (+1.31533236411516284620972932265437992, +0.177766842039249521427162199201258602), (+1.64586879578856408135608263305731513, +0.513147272568174181035017006484508633), (+1.88043119006305110263506093320365727, +0.397494166518967861038134140206176375), (+1.68352270703021217580767104451945872, +0.469603529796237440773261952861091669), (+1.60502886374585816689680456088248210, +0.342862373947910796567944634340119923), (+1.07125632666727810656778630967774003, +0.623289824473629209546114729872851918), (+1.38858464205895940174827133459362313, +0.618921268351971396037660628934959590), (+1.80777593267004376746431200914805492, +0.412736772926108253119611398126945731), (+1.07907859261088030231910141008741332, +0.799016618260619039379120295114910372), (+1.99941509995681455554597985220367805, +0.245158340680065095674297812280462253E-1), (+1.81083118700453246697998812606384512, +0.741771633618436785482331447589492131), (+1.73164244045284078949226653171918258, +0.240936802831222136149909492258399486), (+1.41354932266621560212743497527151437, +0.508924413292546932676761622865514080), (+1.37021304657119679017130710750954328, +0.551122464242370016939814460672148515), (+1.64693106551186500227826054822550931, +0.248071163459557786059333983882157518), (+1.09113945401595931449117779710640154, +0.740483933554756783038947944024689448), (+1.69749717982215817503256441964516287, +0.295949333356056706851973805052099143), (+1.30832411327606862490956215013972159, +0.454786717248888190127264779858543685), (+1.93111865106066931201055921756613886, +0.806425451814771301092737448495337233), (+1.63286001070582449632381890466104715, +0.796148523959869760184674195322270671), (+1.09825411826845232218191050234824649, +0.289546251807246521887388979655140666), (+1.70742750711460897392166582813154174, +0.596054274462309714357214259689430808), (+1.04185508200538513281798615157788896, +0.436192970979073222370535505270777750), (+1.37969272544594660179668410392304008, +0.593735675614282781077039248686009765), (+1.82986876315896373004875847840677770, +0.159683998208808520425662030539325785), (+1.46868774374276921392764904056967515, +0.525806697453514226254544938837763869), (+1.01280641228561201374004565404554488, +0.510816170250594843793099777542193689), (+1.99732262437926731815039936601555893, +0.526537916234762074459368034448066247), (+1.06166876695151992632206320747851071, +0.199243195180330637334433580609800646), (+1.62554304303820430959070802360831428, +0.183110882809500033465574782746176350), (+1.43186969604091338071763690780224071, +0.100773667417209034779230524879318437), (+1.87647174649868327460148593659073212, +0.478847399827340921102936135399178005E-1), (+1.05350504327607217466433743078689359, +0.472737390037521634300968322410810273), (+1.75063908756067254942322026679395212, +0.727380636963577651261862409246174442), (+1.81363847999503180300211656611565830, +0.609719630440842803942411335192148501), (+1.69899264384327504581386631125561103, +0.188535428881020326728602649842470581), (+1.19236065356320866601473634652501653, +0.608645744056405938444067527925356621), (+1.61818528857431978932926666756288729, +0.922884156862269726762598973257960863), (+1.03461180809628919232352007294747614, +0.954744441540966648073600536151766886), (+1.32560766727254242174617669489148083, +0.470707834327179338649192342719980033), (+1.67923893848779426509484387233043119, +0.490322328909416001978075024442794211), (+1.43113445525927898363361461870837776, +0.759665557160950527802974069581917683), (+1.43744353653914560845916429805540536, +0.226181938965796280373922652798590387), (+1.91721458044670958806826801642079249, +0.440807181453606164249787741896079061), (+1.89568597526971063076965588867008535, +0.822061159056176970462977354885313531), (+1.81123953698770428095887441371908328, +0.764322463077404879555833918057399330), (+1.94354445822494409934737065582832366, +0.288968765749655428218718887729308698), (+1.37592133318242292611116222373239389, +0.891517327098513667900484150536920187), (+1.30874023882035077116269645968134443, +0.178761457701559643128852270024504268), (+1.87437497846236188101964368130322726, +0.741969861974959773574065376991119752), (+1.44365434708760683452175610064035246, +0.420305032064610258811556290527448934), (+1.86653053703901498209601944236004535, +0.140020217645483959425739244511146455), (+1.45676465411822992487930425821548448, +0.957019357984219875496383130965013089), (+1.07127920367617652206150954259167494, +0.548948347892051002011812094089600882), (+1.17086356529095699620094962718110911, +0.695865811128744307043305080662447453), (+1.64770233242301276080568194874339292, +0.147514479824378218322874494261143387), (+1.54744722023228274581152653141868855, +0.729512027615168858935907754124139577), (+1.76523175949901549025085669033201282, +0.973824116284193752806664112852762432), (+1.00414811702842259894615848418643906, +0.668814589876840583275160872404841578), (+1.77369978643476267111338551166486485, +0.483390311162564316929362404058937667), (+1.35986449406121231367195840055501086, +0.926589635623616484987317422938213305), (+1.18694409063207165318719794750899609, +0.756223124885952080565094275843605651), (+1.79002155502260286137443384094948830, +0.156112342911056673253245249476998289), (+1.57143855705838641988492833590372239, +0.202737648144094952085916436039908502), (+1.41384394922517693604041839566754894, +0.861538629195698175232319275144260256), (+1.93221286179426174165322414113557465, +0.472486576341607299644630011542175765), (+1.61604148046608658912659333363759285, +0.176160622673854338663276796992393735), (+1.95534606581305483539915582420488972, +0.349277795293968444994611360586759166), (+1.63315791394748903928760541577016123, +0.990633962309527693810945687975917201E-1), (+1.34307942463812034803372309772874373, +0.154277651564925096638636825537825178), (+1.75586570542801774202748511326031783, +0.118084505349748482785135570736918419), (+1.87376421996341423317924759483151788, +0.732305299902388276134304856320275943), (+1.55543102287184973998547379609068855, +0.265435390430478778130084465819880259), (+1.17016053268262477888879504720167073, +0.672822793415358491820502915006375463E-1), (+1.57105424322215752905611729066822074, +0.306031509038356861420157037987741388), (+1.10184157254708203447129134685801258, +0.769270882100588584757223969926010334), (+1.69871009547850741248928355520058863, +0.375727045823610674055592849995208974), (+1.60815371957369956034532640547850952, +0.561974510449032541569644911484857684), (+1.82452527347707550059280336716358640, +0.350659837198709592077286895278933539), (+1.69968839989675273778072587829272019, +0.809816230798544538484707947671248115), (+1.91864535954007471986705395873725295, +0.607033942224591795294232125418954712), (+1.44433356657373324707010177377348036, +0.767506271741194696441711774594147630), (+1.39155984671938068588844462622684683, +0.563702358191589600358336716997367763), (+1.74504972156832828062245836735619893, +0.544585508277056140977524413389921499), (+1.57913905491371005300626793141126729, +0.929207826250325224651967646876257094), (+1.26803905662963863564144439974130449, +0.790408241377499695991578646450790854)

347

348atad = getFFTI(getFFTF(data))

349atad

350(+1.87729445303670763349742018393490381, +0.108714727751165324181533020586953138), (+1.31533236411516284620972932265437992, +0.177766842039249521427162199201258217), (+1.64586879578856408135608263305731532, +0.513147272568174181035017006484508441), (+1.88043119006305110263506093320365766, +0.397494166518967861038134140206176568), (+1.68352270703021217580767104451945872, +0.469603529796237440773261952861091380), (+1.60502886374585816689680456088248210, +0.342862373947910796567944634340119730), (+1.07125632666727810656778630967774003, +0.623289824473629209546114729872851821), (+1.38858464205895940174827133459362313, +0.618921268351971396037660628934959398), (+1.80777593267004376746431200914805511, +0.412736772926108253119611398126945828), (+1.07907859261088030231910141008741351, +0.799016618260619039379120295114910179), (+1.99941509995681455554597985220367863, +0.245158340680065095674297812280463939E-1), (+1.81083118700453246697998812606384532, +0.741771633618436785482331447589492420), (+1.73164244045284078949226653171918297, +0.240936802831222136149909492258399390), (+1.41354932266621560212743497527151437, +0.508924413292546932676761622865514080), (+1.37021304657119679017130710750954328, +0.551122464242370016939814460672148611), (+1.64693106551186500227826054822550970, +0.248071163459557786059333983882157229), (+1.09113945401595931449117779710640173, +0.740483933554756783038947944024689544), (+1.69749717982215817503256441964516287, +0.295949333356056706851973805052098950), (+1.30832411327606862490956215013972179, +0.454786717248888190127264779858543636), (+1.93111865106066931201055921756613943, +0.806425451814771301092737448495337329), (+1.63286001070582449632381890466104715, +0.796148523959869760184674195322270671), (+1.09825411826845232218191050234824649, +0.289546251807246521887388979655140762), (+1.70742750711460897392166582813154155, +0.596054274462309714357214259689430711), (+1.04185508200538513281798615157788935, +0.436192970979073222370535505270777750), (+1.37969272544594660179668410392304047, +0.593735675614282781077039248686009765), (+1.82986876315896373004875847840677808, +0.159683998208808520425662030539325737), (+1.46868774374276921392764904056967515, +0.525806697453514226254544938837764254), (+1.01280641228561201374004565404554507, +0.510816170250594843793099777542193785), (+1.99732262437926731815039936601555932, +0.526537916234762074459368034448066344), (+1.06166876695151992632206320747851110, +0.199243195180330637334433580609800694), (+1.62554304303820430959070802360831447, +0.183110882809500033465574782746176470), (+1.43186969604091338071763690780224110, +0.100773667417209034779230524879318473), (+1.87647174649868327460148593659073251, +0.478847399827340921102936135399178246E-1), (+1.05350504327607217466433743078689397, +0.472737390037521634300968322410810321), (+1.75063908756067254942322026679395231, +0.727380636963577651261862409246174634), (+1.81363847999503180300211656611565868, +0.609719630440842803942411335192148693), (+1.69899264384327504581386631125561142, +0.188535428881020326728602649842470677), (+1.19236065356320866601473634652501673, +0.608645744056405938444067527925356717), (+1.61818528857431978932926666756288768, +0.922884156862269726762598973257961056), (+1.03461180809628919232352007294747633, +0.954744441540966648073600536151767079), (+1.32560766727254242174617669489148083, +0.470707834327179338649192342719980081), (+1.67923893848779426509484387233043158, +0.490322328909416001978075024442794403), (+1.43113445525927898363361461870837776, +0.759665557160950527802974069581918261), (+1.43744353653914560845916429805540574, +0.226181938965796280373922652798590387), (+1.91721458044670958806826801642079287, +0.440807181453606164249787741896079254), (+1.89568597526971063076965588867008593, +0.822061159056176970462977354885313917), (+1.81123953698770428095887441371908367, +0.764322463077404879555833918057399908), (+1.94354445822494409934737065582832463, +0.288968765749655428218718887729308842), (+1.37592133318242292611116222373239427, +0.891517327098513667900484150536920476), (+1.30874023882035077116269645968134482, +0.178761457701559643128852270024504340), (+1.87437497846236188101964368130322726, +0.741969861974959773574065376991120041), (+1.44365434708760683452175610064035284, +0.420305032064610258811556290527448885), (+1.86653053703901498209601944236004573, +0.140020217645483959425739244511146599), (+1.45676465411822992487930425821548505, +0.957019357984219875496383130965013763), (+1.07127920367617652206150954259167513, +0.548948347892051002011812094089601171), (+1.17086356529095699620094962718110949, +0.695865811128744307043305080662447742), (+1.64770233242301276080568194874339331, +0.147514479824378218322874494261143363), (+1.54744722023228274581152653141868855, +0.729512027615168858935907754124140155), (+1.76523175949901549025085669033201301, +0.973824116284193752806664112852762817), (+1.00414811702842259894615848418643925, +0.668814589876840583275160872404841771), (+1.77369978643476267111338551166486562, +0.483390311162564316929362404058937908), (+1.35986449406121231367195840055501086, +0.926589635623616484987317422938213786), (+1.18694409063207165318719794750899628, +0.756223124885952080565094275843605844), (+1.79002155502260286137443384094948926, +0.156112342911056673253245249476998337), (+1.57143855705838641988492833590372239, +0.202737648144094952085916436039908454), (+1.41384394922517693604041839566754894, +0.861538629195698175232319275144260448), (+1.93221286179426174165322414113557484, +0.472486576341607299644630011542175861), (+1.61604148046608658912659333363759305, +0.176160622673854338663276796992393470), (+1.95534606581305483539915582420489010, +0.349277795293968444994611360586759262), (+1.63315791394748903928760541577016123, +0.990633962309527693810945687975916479E-1), (+1.34307942463812034803372309772874392, +0.154277651564925096638636825537825226), (+1.75586570542801774202748511326031822, +0.118084505349748482785135570736918323), (+1.87376421996341423317924759483151788, +0.732305299902388276134304856320276135), (+1.55543102287184973998547379609068893, +0.265435390430478778130084465819880162), (+1.17016053268262477888879504720167054, +0.672822793415358491820502915006375222E-1), (+1.57105424322215752905611729066822093, +0.306031509038356861420157037987741292), (+1.10184157254708203447129134685801239, +0.769270882100588584757223969926010431), (+1.69871009547850741248928355520058863, +0.375727045823610674055592849995208974), (+1.60815371957369956034532640547850952, +0.561974510449032541569644911484857492), (+1.82452527347707550059280336716358679, +0.350659837198709592077286895278933828), (+1.69968839989675273778072587829272039, +0.809816230798544538484707947671248019), (+1.91864535954007471986705395873725333, +0.607033942224591795294232125418954905), (+1.44433356657373324707010177377348036, +0.767506271741194696441711774594147630), (+1.39155984671938068588844462622684683, +0.563702358191589600358336716997367955), (+1.74504972156832828062245836735619893, +0.544585508277056140977524413389921306), (+1.57913905491371005300626793141126768, +0.929207826250325224651967646876257672), (+1.26803905662963863564144439974130468, +0.790408241377499695991578646450790854), (-0.962964972193617926527988971292463659E-34, +0.553704859011330307753593658493166604E-33), (-0.288889491658085377958396691387739098E-33, -0.144444745829042688979198345693869549E-33), (-0.481482486096808963263994485646231830E-33, +0.962964972193617926527988971292463659E-34), (+0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34), (-0.577778983316170755916793382775478196E-33, +0.00000000000000000000000000000000000), (+0.192592994438723585305597794258492732E-33, -0.288889491658085377958396691387739098E-33), (-0.288889491658085377958396691387739098E-33, +0.120370621524202240815998621411557957E-34), (-0.192592994438723585305597794258492732E-33, -0.168518870133883137142398069976181140E-33), (-0.674075480535532548569592279904724561E-33, +0.842594350669415685711990349880905702E-34), (+0.00000000000000000000000000000000000, -0.210648587667353921427997587470226425E-34), (-0.481482486096808963263994485646231830E-33, -0.481482486096808963263994485646231830E-34), (-0.192592994438723585305597794258492732E-33, -0.144444745829042688979198345693869549E-33), (-0.385185988877447170611195588516985464E-33, -0.481482486096808963263994485646231830E-34), (-0.192592994438723585305597794258492732E-33, -0.192592994438723585305597794258492732E-33), (-0.385185988877447170611195588516985464E-33, +0.481482486096808963263994485646231830E-34), (-0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34), (-0.674075480535532548569592279904724561E-33, +0.962964972193617926527988971292463659E-34), (-0.288889491658085377958396691387739098E-33, -0.385185988877447170611195588516985464E-33), (-0.577778983316170755916793382775478196E-33, -0.553704859011330307753593658493166604E-33), (+0.00000000000000000000000000000000000, -0.481482486096808963263994485646231830E-33), (-0.577778983316170755916793382775478196E-33, -0.192592994438723585305597794258492732E-33), (+0.00000000000000000000000000000000000, -0.385185988877447170611195588516985464E-33), (-0.962964972193617926527988971292463659E-33, -0.240741243048404481631997242823115915E-33), (-0.385185988877447170611195588516985464E-33, -0.144444745829042688979198345693869549E-33), (-0.962964972193617926527988971292463659E-33, -0.144444745829042688979198345693869549E-33), (+0.00000000000000000000000000000000000, -0.192592994438723585305597794258492732E-33), (-0.674075480535532548569592279904724561E-33, -0.120370621524202240815998621411557957E-33), (-0.288889491658085377958396691387739098E-33, -0.240741243048404481631997242823115915E-33), (-0.577778983316170755916793382775478196E-33, -0.481482486096808963263994485646231830E-34), (-0.481482486096808963263994485646231830E-33, -0.481482486096808963263994485646231830E-34), (-0.770371977754894341222391177033970927E-33, +0.481482486096808963263994485646231830E-34), (-0.192592994438723585305597794258492732E-33, -0.962964972193617926527988971292463659E-34), (-0.288889491658085377958396691387739098E-33, -0.192592994438723585305597794258492732E-33), (-0.192592994438723585305597794258492732E-33, -0.264815367353244929795196967105427506E-33), (-0.385185988877447170611195588516985464E-33, -0.529630734706489859590393934210855013E-33), (+0.192592994438723585305597794258492732E-33, -0.529630734706489859590393934210855013E-33), (-0.385185988877447170611195588516985464E-33, -0.288889491658085377958396691387739098E-33), (-0.962964972193617926527988971292463659E-34, -0.433334237487128066937595037081608647E-33), (-0.481482486096808963263994485646231830E-33, -0.529630734706489859590393934210855013E-33), (-0.192592994438723585305597794258492732E-33, -0.385185988877447170611195588516985464E-33), (-0.770371977754894341222391177033970927E-33, -0.565741921163750531835193520634322400E-33)

351reltol = sqrt(epsilon(1._TKC))

352reltol

353+0.138777878078144567552953958511352539E-16

354isClose(data, atad(1:size(data)), reltol = reltol)

355T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

356call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

357

358lenData = getUnifRand(5, 100)

359lenData

360+73

361data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

362data

363+1.24625492, +1.80080390, +1.09625793, +1.25676084, +1.59180546, +1.90358353, +1.70215106, +1.25981760, +1.01090956, +1.94279671, +1.93120217, +1.14733624, +1.78298259, +1.17358780, +1.31150508, +1.81626797, +1.74538374, +1.13833117, +1.00340247, +1.83377862, +1.35415339, +1.99567914, +1.22363424, +1.29985929, +1.18658376, +1.38391507, +1.60880399, +1.22702861, +1.17996681, +1.92148316, +1.75958371, +1.05602217, +1.67994285, +1.88166666, +1.18718445, +1.92710018, +1.64671779, +1.36424041, +1.89065075, +1.46946383, +1.38864005, +1.36632514, +1.33885121, +1.38180053, +1.61609375, +1.76811445, +1.96585739, +1.21721721, +1.27733660, +1.38156605, +1.22145379, +1.32691026, +1.90117085, +1.00617409, +1.60872316, +1.59316480, +1.41894603, +1.06982398, +1.91293263, +1.66658008, +1.14201415, +1.28149843, +1.89396548, +1.50113654, +1.89069223, +1.50798261, +1.88245630, +1.26198804, +1.84322023, +1.21173358, +1.80755484, +1.68660283, +1.07638037

364

365atad = getFFTI(getFFTF(data))

366atad

367+1.24625492, +1.80080366, +1.09625769, +1.25676072, +1.59180510, +1.90358329, +1.70215058, +1.25981688, +1.01090956, +1.94279671, +1.93120193, +1.14733613, +1.78298259, +1.17358756, +1.31150496, +1.81626749, +1.74538374, +1.13833129, +1.00340223, +1.83377838, +1.35415316, +1.99567890, +1.22363400, +1.29985929, +1.18658364, +1.38391519, +1.60880375, +1.22702885, +1.17996657, +1.92148304, +1.75958347, +1.05602229, +1.67994285, +1.88166654, +1.18718457, +1.92709982, +1.64671779, +1.36424017, +1.89065075, +1.46946347, +1.38864005, +1.36632514, +1.33885109, +1.38180041, +1.61609375, +1.76811445, +1.96585727, +1.21721685, +1.27733648, +1.38156605, +1.22145367, +1.32691014, +1.90117085, +1.00617385, +1.60872293, +1.59316456, +1.41894579, +1.06982398, +1.91293204, +1.66657996, +1.14201403, +1.28149819, +1.89396501, +1.50113642, +1.89069223, +1.50798249, +1.88245630, +1.26198781, +1.84322035, +1.21173358, +1.80755520, +1.68660259, +1.07638025, -0.596046448E-7, +0.178813934E-6, +0.119209290E-6, +0.596046448E-7, +0.119209290E-6, +0.119209290E-6, +0.178813934E-6, +0.00000000, -0.357627869E-6, +0.119209290E-6, +0.00000000, +0.298023224E-6, +0.119209290E-6, +0.298023224E-6, +0.00000000, +0.119209290E-6, -0.596046448E-7, +0.178813934E-6, -0.178813934E-6, +0.119209290E-6, -0.596046448E-7, +0.596046448E-7, -0.119209290E-6, -0.119209290E-6, -0.119209290E-6, -0.119209290E-6, +0.119209290E-6, -0.596046448E-7, +0.178813934E-6, -0.178813934E-6, +0.119209290E-6, +0.119209290E-6, +0.596046448E-7, -0.119209290E-6, +0.00000000, -0.119209290E-6, +0.00000000, +0.00000000, +0.357627869E-6, +0.119209290E-6, +0.596046448E-7, -0.596046448E-7, +0.119209290E-6, +0.00000000, +0.298023224E-6, -0.119209290E-6, +0.119209290E-6, +0.476837158E-6, -0.596046448E-7, +0.357627869E-6, +0.00000000, +0.00000000, -0.596046448E-7, +0.596046448E-7, -0.119209290E-6

368reltol = sqrt(epsilon(1._TKC))

369reltol

370+0.345266977E-3

371isClose(data, atad(1:size(data)), reltol = reltol)

372T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

373call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

374

375lenData = getUnifRand(5, 100)

376lenData

377+49

378data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

379data

380+1.0209878347867813, +1.3019616076701013, +1.7985383357227640, +1.3284059402048900, +1.7991846018232118, +1.8423879373532381, +1.8999359903052786, +1.4854093933646166, +1.9294263695455265, +1.7338733758248916, +1.7376025450616133, +1.5739114560968024, +1.9112987626704525, +1.3772327997081135, +1.7101792991423577, +1.5025132616338848, +1.1495543299711724, +1.7406744727088359, +1.9916017012676479, +1.1121552831999568, +1.1996319647984248, +1.3762737881587885, +1.4668644383255403, +1.4157395286419092, +1.8935787108698943, +1.2866892550083646, +1.1934724763795779, +1.9823405633378011, +1.1177484110395706, +1.3090051585347700, +1.9271908760307550, +1.5022222284615072, +1.2871054611624408, +1.8391841435383518, +1.9323395532145256, +1.9600530865038270, +1.1009717395563059, +1.0327683932579901, +1.8202941448775525, +1.4246582393994709, +1.4591048348404068, +1.9226812051168642, +1.6366958117380386, +1.2517507104406627, +1.9507292871243938, +1.4717884148444336, +1.8345031908981082, +1.2108349980619184, +1.2768438198239500

381

382atad = getFFTI(getFFTF(data))

383atad

384+1.0209878347867813, +1.3019616076701015, +1.7985383357227638, +1.3284059402048902, +1.7991846018232112, +1.8423879373532379, +1.8999359903052784, +1.4854093933646169, +1.9294263695455267, +1.7338733758248916, +1.7376025450616130, +1.5739114560968024, +1.9112987626704521, +1.3772327997081133, +1.7101792991423574, +1.5025132616338848, +1.1495543299711728, +1.7406744727088359, +1.9916017012676477, +1.1121552831999568, +1.1996319647984244, +1.3762737881587881, +1.4668644383255400, +1.4157395286419088, +1.8935787108698940, +1.2866892550083642, +1.1934724763795779, +1.9823405633378006, +1.1177484110395701, +1.3090051585347693, +1.9271908760307546, +1.5022222284615068, +1.2871054611624406, +1.8391841435383520, +1.9323395532145258, +1.9600530865038273, +1.1009717395563055, +1.0327683932579899, +1.8202941448775527, +1.4246582393994707, +1.4591048348404072, +1.9226812051168642, +1.6366958117380386, +1.2517507104406627, +1.9507292871243935, +1.4717884148444336, +1.8345031908981080, +1.2108349980619186, +1.2768438198239500, +0.22204460492503131E-15, +0.22204460492503131E-15, -0.11102230246251565E-15, +0.0000000000000000, +0.0000000000000000, +0.66613381477509392E-15, +0.0000000000000000, +0.66613381477509392E-15, +0.55511151231257827E-15, +0.33306690738754696E-15, +0.44408920985006262E-15, +0.44408920985006262E-15, +0.33306690738754696E-15, +0.0000000000000000, +0.66613381477509392E-15

385reltol = sqrt(epsilon(1._TKC))

386reltol

387+0.14901161193847656E-7

388isClose(data, atad(1:size(data)), reltol = reltol)

389T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

390call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

391

392lenData = getUnifRand(5, 100)

393lenData

394+99

395data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

396data

397+1.04380754448721398133902631367329599, +1.57447166374771134344751802431398356, +1.07922473977420428606126726343003947, +1.48860705199956115207519957695327943, +1.28530200443153310539571786870870824, +1.29437925207525481423391241493076473, +1.52817161032639671926284120542424489, +1.27203989674856653608613230392260384, +1.72818024215012600409038601145330587, +1.00452630916003635923992278360133904, +1.62675302453791335489796689751435652, +1.61907121155488384561519838457315125, +1.62525671942320132652985536494184905, +1.09042934525170390215808697082291450, +1.85040752732357409470715781626222899, +1.47058773954233478923651210735112424, +1.65443744637525067320512439838211852, +1.89074128202371128912159738922230489, +1.55486255807797034374738596402447284, +1.18421604716081000832100922560932023, +1.43949194602878926551209958620522585, +1.22097932536489472188327077075854254, +1.24183753694509333024807965645772281, +1.88804606115985113256868462816564811, +1.71754595658627426605059539987803260, +1.68318503666267282474420198171670775, +1.71278093270105511109784988310439712, +1.22483985590052149967552386835657785, +1.76710181340935109276187837451442590, +1.05194972477190225879225432190912302, +1.46725922747052475028631756569343425, +1.67658570593946651776698448317234899, +1.14506202501907525291674681432462294, +1.50723804686633263351225853570795816, +1.77804013890348057311656263025741222, +1.41946384973047856856986918027002390, +1.48431064065597542182384479671758392, +1.78514009167765090038129338745769187, +1.90330957699131120235907186918021383, +1.75832321697747605275770034460326726, +1.02379865620506282518399887858170615, +1.75417125737813709980875040620892111, +1.96218482949989199968681634063272594, +1.22166162670639497047137084908404210, +1.41504079548069734934333955290677042, +1.41005204683830566312863287248174981, +1.47450881300027825859336518707970400, +1.50366849758206500419058736904190500, +1.76271077612354476534869361228028108, +1.91662623095525578044098760473150410, +1.71697801794921419542967969698744981, +1.66125395983305144195488310309467934, +1.05610233559552494583032266369177464, +1.02053916794156892890755090991325144, +1.12374271874928547723532008935709181, +1.32515008867974737563992839936805159, +1.61394428015284006632080098331063594, +1.51941632304827766594554164289675899, +1.47415400107168254039057563398241091, +1.92762723143981388812299697044659623, +1.75746725893529669509700867635311073, +1.53472659303553250005350713884708068, +1.21456244590818768059307853688189937, +1.95227803015498975005690021344422816, +1.82402657000564043090896475325378147, +1.03589436841975596305970029412870553, +1.55119104835620614742360715003524016, +1.20094753925082375100482443118142052, +1.11528423087796123477003337826517149, +1.86827275851560905845540968278097447, +1.64645014333377411282869034780791902, +1.87463714730257211332366827295554398, +1.99498314366491766249862835820696864, +1.24830283181361106622418618506097866, +1.27034285304478331246351557823354901, +1.10462947160196290444187562686058259, +1.66085775041473783494580883008846925, +1.80636696624080671048019548243093736, +1.01135646416563443068049999362117541, +1.77882290142986942575086099107355689, +1.28480480531009985338157675034543517, +1.74693745504187977988882046108804982, +1.97101486148060037884401784200233724, +1.89379232655428413684734973826287755, +1.69628559024655812610260689413044321, +1.65227801303358974962866094775577219, +1.87091083339410211463351579626512311, +1.56378516532630709494592225360163310, +1.63315222090320268702447464776569473, +1.02076910677485179576710672706557233, +1.28671736168052093678312468568705062, +1.46183691849942772826913892993489372, +1.49473351672002610841243033968461019, +1.98519181200459384639545061540465929, +1.38858356019392777711476223173751907, +1.02840573318573302956094393551244131, +1.66755611498853497086515842262387631, +1.11099440110728485228094542341100675, +1.30959099067018063290736975622950734

398

399atad = getFFTI(getFFTF(data))

400atad

401+1.04380754448721398133902631367329638, +1.57447166374771134344751802431398356, +1.07922473977420428606126726343003947, +1.48860705199956115207519957695327943, +1.28530200443153310539571786870870824, +1.29437925207525481423391241493076511, +1.52817161032639671926284120542424509, +1.27203989674856653608613230392260403, +1.72818024215012600409038601145330645, +1.00452630916003635923992278360133904, +1.62675302453791335489796689751435672, +1.61907121155488384561519838457315125, +1.62525671942320132652985536494184924, +1.09042934525170390215808697082291411, +1.85040752732357409470715781626222937, +1.47058773954233478923651210735112462, +1.65443744637525067320512439838211871, +1.89074128202371128912159738922230489, +1.55486255807797034374738596402447284, +1.18421604716081000832100922560932004, +1.43949194602878926551209958620522585, +1.22097932536489472188327077075854273, +1.24183753694509333024807965645772300, +1.88804606115985113256868462816564849, +1.71754595658627426605059539987803299, +1.68318503666267282474420198171670794, +1.71278093270105511109784988310439673, +1.22483985590052149967552386835657804, +1.76710181340935109276187837451442628, +1.05194972477190225879225432190912302, +1.46725922747052475028631756569343425, +1.67658570593946651776698448317234957, +1.14506202501907525291674681432462332, +1.50723804686633263351225853570795816, +1.77804013890348057311656263025741222, +1.41946384973047856856986918027002351, +1.48431064065597542182384479671758392, +1.78514009167765090038129338745769168, +1.90330957699131120235907186918021422, +1.75832321697747605275770034460326764, +1.02379865620506282518399887858170615, +1.75417125737813709980875040620892131, +1.96218482949989199968681634063272652, +1.22166162670639497047137084908404190, +1.41504079548069734934333955290677061, +1.41005204683830566312863287248174942, +1.47450881300027825859336518707970458, +1.50366849758206500419058736904190539, +1.76271077612354476534869361228028127, +1.91662623095525578044098760473150410, +1.71697801794921419542967969698745001, +1.66125395983305144195488310309467914, +1.05610233559552494583032266369177464, +1.02053916794156892890755090991325106, +1.12374271874928547723532008935709220, +1.32515008867974737563992839936805139, +1.61394428015284006632080098331063594, +1.51941632304827766594554164289675880, +1.47415400107168254039057563398241072, +1.92762723143981388812299697044659623, +1.75746725893529669509700867635311112, +1.53472659303553250005350713884708030, +1.21456244590818768059307853688189975, +1.95227803015498975005690021344422835, +1.82402657000564043090896475325378166, +1.03589436841975596305970029412870534, +1.55119104835620614742360715003524016, +1.20094753925082375100482443118141994, +1.11528423087796123477003337826517188, +1.86827275851560905845540968278097447, +1.64645014333377411282869034780791940, +1.87463714730257211332366827295554398, +1.99498314366491766249862835820696884, +1.24830283181361106622418618506097885, +1.27034285304478331246351557823354901, +1.10462947160196290444187562686058240, +1.66085775041473783494580883008846983, +1.80636696624080671048019548243093756, +1.01135646416563443068049999362117580, +1.77882290142986942575086099107355709, +1.28480480531009985338157675034543536, +1.74693745504187977988882046108804943, +1.97101486148060037884401784200233724, +1.89379232655428413684734973826287697, +1.69628559024655812610260689413044359, +1.65227801303358974962866094775577200, +1.87091083339410211463351579626512331, +1.56378516532630709494592225360163310, +1.63315222090320268702447464776569473, +1.02076910677485179576710672706557194, +1.28671736168052093678312468568705023, +1.46183691849942772826913892993489353, +1.49473351672002610841243033968461096, +1.98519181200459384639545061540465968, +1.38858356019392777711476223173751907, +1.02840573318573302956094393551244112, +1.66755611498853497086515842262387651, +1.11099440110728485228094542341100656, +1.30959099067018063290736975622950753, -0.770371977754894341222391177033970927E-33, +0.385185988877447170611195588516985464E-33, +0.962964972193617926527988971292463659E-34, +0.288889491658085377958396691387739098E-33, +0.192592994438723585305597794258492732E-33, -0.481482486096808963263994485646231830E-33, +0.00000000000000000000000000000000000, -0.962964972193617926527988971292463659E-33, -0.481482486096808963263994485646231830E-33, -0.481482486096808963263994485646231830E-33, +0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33, +0.288889491658085377958396691387739098E-33, +0.288889491658085377958396691387739098E-33, -0.962964972193617926527988971292463659E-34, +0.00000000000000000000000000000000000, -0.385185988877447170611195588516985464E-33, +0.00000000000000000000000000000000000, +0.385185988877447170611195588516985464E-33, +0.962964972193617926527988971292463659E-34, +0.00000000000000000000000000000000000, +0.00000000000000000000000000000000000, -0.288889491658085377958396691387739098E-33, -0.192592994438723585305597794258492732E-33, -0.288889491658085377958396691387739098E-33, +0.192592994438723585305597794258492732E-33, -0.481482486096808963263994485646231830E-33, +0.962964972193617926527988971292463659E-34, -0.577778983316170755916793382775478196E-33

402reltol = sqrt(epsilon(1._TKC))

403reltol

404+0.138777878078144567552953958511352539E-16

405isClose(data, atad(1:size(data)), reltol = reltol)

406T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

407call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

408

409lenData = getUnifRand(5, 100)

410lenData

411+14

412data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

413data

414(+1.14313591, +0.782610834), (+1.58214641, +0.351309657), (+1.13393927, +0.139853537), (+1.03409386, +0.355005205), (+1.03574598, +0.724726677), (+1.58966827, +0.369792283), (+1.19964218, +0.168705761), (+1.61149418, +0.206880867), (+1.69084561, +0.383069754), (+1.62569022, +0.692445099), (+1.24820375, +0.615899563), (+1.46373141, +0.334929526), (+1.10109890, +0.869733334), (+1.54584217, +0.628185570)

415

416atad = getFFTI(getFFTF(data))

417atad

418(+1.14313591, +0.782610774), (+1.58214653, +0.351309717), (+1.13393927, +0.139853582), (+1.03409374, +0.355005234), (+1.03574586, +0.724726617), (+1.58966827, +0.369792342), (+1.19964218, +0.168705672), (+1.61149418, +0.206880778), (+1.69084561, +0.383069724), (+1.62569010, +0.692445219), (+1.24820375, +0.615899444), (+1.46373117, +0.334929377), (+1.10109878, +0.869733274), (+1.54584217, +0.628185689), (+0.119209290E-6, +0.149011612E-6), (+0.119209290E-6, +0.596046448E-7)

419reltol = sqrt(epsilon(1._TKC))

420reltol

421+0.345266977E-3

422isClose(data, atad(1:size(data)), reltol = reltol)

423T, T, T, T, T, T, T, T, T, T, T, T, T, T

424call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

425

426lenData = getUnifRand(5, 100)

427lenData

428+38

429data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

430data

431(+1.5521645706625971, +0.62271142815943969), (+1.0025721811895427, +0.11124305035059234), (+1.1361694207839672, +0.98915257799713774E-1), (+1.5932423953443604, +0.15435182364268552), (+1.7181358454385069, +0.84365847308748587), (+1.5429541099483286, +0.86502201266743739), (+1.8529930784712150, +0.71214375274653463E-1), (+1.2882389379536030, +0.70019926137338095), (+1.0367856106278497, +0.68171851241688708), (+1.2914684312360447, +0.24726408837197900), (+1.7856896976228507, +0.17752735986280888), (+1.9308392730585209, +0.86256788487362512), (+1.6842697713392099, +0.69586864291355521), (+1.5561825242724883, +0.25452422331788982), (+1.4836354773968208, +0.92060242993355579), (+1.6798020696754574, +0.40218811945670052), (+1.8163119108970416, +0.41078407651330495), (+1.8853598169374615, +0.87622396173330297), (+1.6174535813293121, +0.60454404107886572), (+1.3389601535581446, +0.10127045461701500), (+1.1356440204357126, +0.36185677047886222), (+1.6261347516245346, +0.65262167799729309), (+1.7262948936949449, +0.83798725438131316), (+1.4438667795029327, +0.11629145951893627), (+1.6981928407100608, +0.95493592157286256), (+1.2372102447889031, +0.57490535195517756), (+1.5401152802746538, +0.83755192919518051), (+1.7358555798310369, +0.64518746713627750), (+1.9587800221778924, +0.38373620235615935), (+1.5435488682281857, +0.22486026480893162), (+1.9427992361679880, +0.38506206723346237), (+1.7904185874203662, +0.63601378836599887), (+1.9428441237494964, +0.32657890621897001), (+1.8365657821688082, +0.21173268262255340), (+1.8756970470750050, +0.24983358515659260), (+1.2172369396165528, +0.81813807876272138), (+1.9320648923592181, +0.83082292483379028), (+1.8668486811603255, +0.15561002982836958)

432

433atad = getFFTI(getFFTF(data))

434atad

435(+1.5521645706625971, +0.62271142815943969), (+1.0025721811895427, +0.11124305035059245), (+1.1361694207839672, +0.98915257799714176E-1), (+1.5932423953443597, +0.15435182364268585), (+1.7181358454385069, +0.84365847308748576), (+1.5429541099483282, +0.86502201266743750), (+1.8529930784712150, +0.71214375274653685E-1), (+1.2882389379536028, +0.70019926137338073), (+1.0367856106278501, +0.68171851241688741), (+1.2914684312360445, +0.24726408837197925), (+1.7856896976228498, +0.17752735986280904), (+1.9308392730585204, +0.86256788487362512), (+1.6842697713392099, +0.69586864291355532), (+1.5561825242724878, +0.25452422331789026), (+1.4836354773968206, +0.92060242993355534), (+1.6798020696754570, +0.40218811945670074), (+1.8163119108970416, +0.41078407651330490), (+1.8853598169374615, +0.87622396173330297), (+1.6174535813293121, +0.60454404107886550), (+1.3389601535581441, +0.10127045461701478), (+1.1356440204357132, +0.36185677047886211), (+1.6261347516245346, +0.65262167799729309), (+1.7262948936949449, +0.83798725438131272), (+1.4438667795029327, +0.11629145951893616), (+1.6981928407100613, +0.95493592157286233), (+1.2372102447889031, +0.57490535195517745), (+1.5401152802746538, +0.83755192919517962), (+1.7358555798310364, +0.64518746713627673), (+1.9587800221778924, +0.38373620235615918), (+1.5435488682281853, +0.22486026480893143), (+1.9427992361679878, +0.38506206723346192), (+1.7904185874203655, +0.63601378836599798), (+1.9428441237494964, +0.32657890621897018), (+1.8365657821688082, +0.21173268262255340), (+1.8756970470750052, +0.24983358515659221), (+1.2172369396165525, +0.81813807876272071), (+1.9320648923592181, +0.83082292483379028), (+1.8668486811603251, +0.15561002982836930), (+0.55511151231257827E-15, -0.11102230246251565E-15), (+0.0000000000000000, -0.16653345369377348E-15), (+0.33306690738754696E-15, -0.55511151231257827E-16), (+0.0000000000000000, -0.36082248300317588E-15), (+0.77715611723760958E-15, +0.55511151231257827E-16), (+0.33306690738754696E-15, -0.22204460492503131E-15), (+0.44408920985006262E-15, -0.11102230246251565E-15), (+0.0000000000000000, -0.33306690738754696E-15), (+0.66613381477509392E-15, +0.0000000000000000), (+0.44408920985006262E-15, -0.33306690738754696E-15), (+0.11102230246251565E-15, +0.16653345369377348E-15), (-0.11102230246251565E-15, -0.55511151231257827E-16), (+0.0000000000000000, +0.33306690738754696E-15), (+0.0000000000000000, +0.11102230246251565E-15), (+0.33306690738754696E-15, -0.83266726846886741E-16), (-0.33306690738754696E-15, -0.22204460492503131E-15), (+0.44408920985006262E-15, +0.16653345369377348E-15), (+0.11102230246251565E-15, +0.22204460492503131E-15), (+0.22204460492503131E-15, +0.27755575615628914E-15), (-0.11102230246251565E-15, +0.11102230246251565E-15), (+0.44408920985006262E-15, +0.66613381477509392E-15), (+0.22204460492503131E-15, +0.88817841970012523E-15), (+0.44408920985006262E-15, +0.44408920985006262E-15), (+0.11102230246251565E-15, +0.27755575615628914E-15), (+0.44408920985006262E-15, +0.86042284408449632E-15), (+0.44408920985006262E-15, +0.94368957093138306E-15)

436reltol = sqrt(epsilon(1._TKC))

437reltol

438+0.14901161193847656E-7

439isClose(data, atad(1:size(data)), reltol = reltol)

440T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

441call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

442

443lenData = getUnifRand(5, 100)

444lenData

445+48

446data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

447data

448(+1.54246487128189375759945479824082221, +0.567836766919349211473217458143589972), (+1.79285613142406380863020565723359693, +0.859530067595905738804357450867622170), (+1.60469041985710775007870301194005039, +0.495725241155958576138745358546474508), (+1.74031205849396411686011683158371835, +0.661315888790578471817158852415535169), (+1.05282270087781599661406944488252769, +0.312528807014303885905066652981084150), (+1.15218492116519636309588169750661442, +0.615322192711698470209626418918083322), (+1.02112266101352671323312834497018610, +0.572920120142589628758721391787341211), (+1.94133223962787709195379339649511353, +0.638132100527378591768329232571805801), (+1.13279589581721156458405290859174526, +0.621875725612964587920984344561303614E-1), (+1.29433524790641659841118864593824856, +0.497065466052653092371320337824089630), (+1.25119270383553012589162143673806800, +0.793504705599706957831291879102843785), (+1.10831503458095687628100334674890080, +0.891086464042010201160418007668888239), (+1.84504669790173444218797644951108339, +0.674461142577411519601056923707109065), (+1.31850909712482406742253473322965839, +0.966820940366490652859282783776303443), (+1.68526982413342223168559476681335111, +0.852861550643076876082744696317881722), (+1.01148042381885548862078922843795317, +0.818263473918647574010501963321995117), (+1.62522150680218161517132435667904317, +0.251992875189237597773916817642278599), (+1.55093683021187011059051474550174457, +0.738409271699709722878044587762496351), (+1.15344677427618115540782881130826723, +0.215663446932260598300338746049496921), (+1.56489856102759787701088386015278562, +0.977205168966627782771797277546826211), (+1.43674856070960191883156472645063462, +0.472683979311293480166995029669889401), (+1.49890676320735809470868733500527163, +0.526619788397495274284779951948558889), (+1.75067956099527964016399407731083285, +0.113226768758831643511225978030272337), (+1.98348907190151350686832988577056421, +0.221427599755014241879771292334655738), (+1.10617004975140158721279924982117248, +0.585924051227139470555200360029085008), (+1.47330894428928183606515946539974332, +0.388997602663813224458980483753462239), (+1.16608287785664404994615336336092978, +0.320530883525376915686563005890246601E-1), (+1.47764232475013087567323278383720998, +0.562984238726224372114597130630122271), (+1.75355149587974870815856035807178957, +0.597560328362471825010291719192185984), (+1.91745488203968920732609743965730970, +0.148362649162326263307127318182714858), (+1.60044616765999634181661026186080032, +0.117394243212129944474728365760638625), (+1.94397774395339089467173800205689260, +0.370467886673708252599406889412357850), (+1.53579649555961541109732110293104171, +0.260930694326174522809222949392814816), (+1.99517475384730164304396782365345527, +0.132331035430461564486140147816473382), (+1.96487212248714929793657860016634354, +0.799023341215943111003748923302779255), (+1.36853810946124558331351848076557371, +0.125885444204034695887161379663673211), (+1.37830162265728488690503392790142487, +0.782615679870863461067913151446817050), (+1.43089060437924999915944504724072351, +0.138139611732183536504912612849506303), (+1.08523343695906932059172853399832336, +0.325218234287201680984622882428758330), (+1.93369056133064843264859707107569680, +0.144313112817478361581421619705787167), (+1.89184159354940737049454582668771505, +0.151487901010543007245749365942673287), (+1.52626671813723583118481812457780294, +0.450907752843141864646061512827024170), (+1.36679565233278334285964735198749724, +0.679049364456940995241057490214707233), (+1.72270128082944666682665863234322622, +0.719255556289766435021829938799228482), (+1.12027041067777948606156933490311011, +0.106692602623822490754499957347792333), (+1.08212284583194554067032840320339900, +0.544732835735942596679376564260067731), (+1.80199607822943103156964645908531445, +0.469275585357011374358232369484519984), (+1.01350811531362630483040909790588881, +0.207226873906503522979130286900278274)

449

450atad = getFFTI(getFFTF(data))

451atad

452(+1.54246487128189375759945479824082221, +0.567836766919349211473217458143589972), (+1.79285613142406380863020565723359674, +0.859530067595905738804357450867622267), (+1.60469041985710775007870301194005020, +0.495725241155958576138745358546474508), (+1.74031205849396411686011683158371835, +0.661315888790578471817158852415535266), (+1.05282270087781599661406944488252788, +0.312528807014303885905066652981083861), (+1.15218492116519636309588169750661442, +0.615322192711698470209626418918083226), (+1.02112266101352671323312834497018591, +0.572920120142589628758721391787341114), (+1.94133223962787709195379339649511334, +0.638132100527378591768329232571805609), (+1.13279589581721156458405290859174546, +0.621875725612964587920984344561305299E-1), (+1.29433524790641659841118864593824875, +0.497065466052653092371320337824089630), (+1.25119270383553012589162143673806820, +0.793504705599706957831291879102843881), (+1.10831503458095687628100334674890041, +0.891086464042010201160418007668888143), (+1.84504669790173444218797644951108377, +0.674461142577411519601056923707109161), (+1.31850909712482406742253473322965820, +0.966820940366490652859282783776303732), (+1.68526982413342223168559476681335092, +0.852861550643076876082744696317881626), (+1.01148042381885548862078922843795240, +0.818263473918647574010501963321995502), (+1.62522150680218161517132435667904317, +0.251992875189237597773916817642278647), (+1.55093683021187011059051474550174437, +0.738409271699709722878044587762496255), (+1.15344677427618115540782881130826723, +0.215663446932260598300338746049496777), (+1.56489856102759787701088386015278524, +0.977205168966627782771797277546826019), (+1.43674856070960191883156472645063462, +0.472683979311293480166995029669889401), (+1.49890676320735809470868733500527182, +0.526619788397495274284779951948558793), (+1.75067956099527964016399407731083266, +0.113226768758831643511225978030272217), (+1.98348907190151350686832988577056382, +0.221427599755014241879771292334655377), (+1.10617004975140158721279924982117248, +0.585924051227139470555200360029084911), (+1.47330894428928183606515946539974352, +0.388997602663813224458980483753462287), (+1.16608287785664404994615336336092978, +0.320530883525376915686563005890246119E-1), (+1.47764232475013087567323278383720979, +0.562984238726224372114597130630122078), (+1.75355149587974870815856035807178996, +0.597560328362471825010291719192185887), (+1.91745488203968920732609743965730970, +0.148362649162326263307127318182714858), (+1.60044616765999634181661026186080051, +0.117394243212129944474728365760638493), (+1.94397774395339089467173800205689221, +0.370467886673708252599406889412357802), (+1.53579649555961541109732110293104171, +0.260930694326174522809222949392814768), (+1.99517475384730164304396782365345527, +0.132331035430461564486140147816473285), (+1.96487212248714929793657860016634354, +0.799023341215943111003748923302779255), (+1.36853810946124558331351848076557371, +0.125885444204034695887161379663673114), (+1.37830162265728488690503392790142507, +0.782615679870863461067913151446817242), (+1.43089060437924999915944504724072371, +0.138139611732183536504912612849506399), (+1.08523343695906932059172853399832336, +0.325218234287201680984622882428758426), (+1.93369056133064843264859707107569661, +0.144313112817478361581421619705787407), (+1.89184159354940737049454582668771505, +0.151487901010543007245749365942673215), (+1.52626671813723583118481812457780313, +0.450907752843141864646061512827024074), (+1.36679565233278334285964735198749724, +0.679049364456940995241057490214707233), (+1.72270128082944666682665863234322584, +0.719255556289766435021829938799228193), (+1.12027041067777948606156933490311011, +0.106692602623822490754499957347792429), (+1.08212284583194554067032840320339842, +0.544732835735942596679376564260067924), (+1.80199607822943103156964645908531445, +0.469275585357011374358232369484520080), (+1.01350811531362630483040909790588842, +0.207226873906503522979130286900278515), (-0.962964972193617926527988971292463659E-34, +0.144444745829042688979198345693869549E-33), (-0.962964972193617926527988971292463659E-34, -0.240741243048404481631997242823115915E-33), (+0.962964972193617926527988971292463659E-34, +0.481482486096808963263994485646231830E-34), (+0.00000000000000000000000000000000000, +0.192592994438723585305597794258492732E-33), (-0.288889491658085377958396691387739098E-33, +0.722223729145213444895991728469347744E-34), (-0.674075480535532548569592279904724561E-33, +0.00000000000000000000000000000000000), (-0.192592994438723585305597794258492732E-33, +0.457408361791968515100794761363920238E-33), (-0.770371977754894341222391177033970927E-33, -0.722223729145213444895991728469347744E-34), (+0.00000000000000000000000000000000000, +0.481482486096808963263994485646231830E-34), (+0.385185988877447170611195588516985464E-33, -0.144444745829042688979198345693869549E-33), (+0.962964972193617926527988971292463659E-34, +0.144444745829042688979198345693869549E-33), (-0.192592994438723585305597794258492732E-33, -0.481482486096808963263994485646231830E-34), (+0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33), (-0.192592994438723585305597794258492732E-33, -0.385185988877447170611195588516985464E-33), (+0.00000000000000000000000000000000000, -0.156481807981462913060798207835025345E-33), (-0.481482486096808963263994485646231830E-33, -0.192592994438723585305597794258492732E-33)

453reltol = sqrt(epsilon(1._TKC))

454reltol

455+0.138777878078144567552953958511352539E-16

456isClose(data, atad(1:size(data)), reltol = reltol)

457T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

458call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

459

460lenData = getUnifRand(5, 100)

461lenData

462+20

463data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

464data

465+1.32699585, +1.81298089, +1.07653189, +1.03166366, +1.52636957, +1.61045647, +1.52698851, +1.31123424, +1.19087017, +1.50360918, +1.81429482, +1.05320597, +1.18298340, +1.52580202, +1.20962524, +1.53580284, +1.84378052, +1.72596991, +1.94225574, +1.37449360

466

467atad = getFFTI(getFFTF(data))

468atad

469+1.32699585, +1.81298113, +1.07653189, +1.03166389, +1.52636933, +1.61045647, +1.52698839, +1.31123424, +1.19087040, +1.50360906, +1.81429482, +1.05320585, +1.18298340, +1.52580190, +1.20962524, +1.53580260, +1.84378052, +1.72597003, +1.94225550, +1.37449360, +0.238418579E-6, +0.298023224E-6, +0.00000000, +0.119209290E-6, -0.119209290E-6, +0.357627869E-6, -0.119209290E-6, +0.119209290E-6, +0.00000000, +0.655651093E-6, +0.596046448E-7, +0.298023224E-6

470reltol = sqrt(epsilon(1._TKC))

471reltol

472+0.345266977E-3

473isClose(data, atad(1:size(data)), reltol = reltol)

474T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

475call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

476

477lenData = getUnifRand(5, 100)

478lenData

479+53

480data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

481data

482+1.7541835306776545, +1.3315664776618941, +1.1205489938458801, +1.4962525251474710, +1.2999182961263891, +1.1743266053968560, +1.9846647879656034, +1.0756164566677726, +1.8878866804428038, +1.6156759659097080, +1.1225260397845465, +1.3471562473624326, +1.4964094770664904, +1.0639051555900134, +1.3841582725173089, +1.5384193524603971, +1.7217073763451889, +1.4912196056724090, +1.8789834364265530, +1.5710401288495994, +1.2011548526518150, +1.6488162498049075, +1.0879231705120258, +1.6080519650022262, +1.5267616791215715, +1.6456893048832035, +1.1271814230168347, +1.6920083545104363, +1.0905921293055965, +1.7688062523975168, +1.3089969977338662, +1.0207749787905560, +1.9751849549001359, +1.8278949389025243, +1.7837713425789918, +1.4019979189851224, +1.2961950396726620, +1.7875821848070190, +1.9021185647232972, +1.7290657841362518, +1.6440876478762128, +1.2363173999599508, +1.1942242792453475, +1.8649125592865365, +1.8846690787420746, +1.9505694618808864, +1.2627565075257352, +1.3904966642675887, +1.6109149851710982, +1.3829129364620443, +1.4497763069451755, +1.7558343206050373, +1.6031586403819038

483

484atad = getFFTI(getFFTF(data))

485atad

486+1.7541835306776548, +1.3315664776618936, +1.1205489938458801, +1.4962525251474710, +1.2999182961263891, +1.1743266053968560, +1.9846647879656034, +1.0756164566677722, +1.8878866804428034, +1.6156759659097082, +1.1225260397845467, +1.3471562473624323, +1.4964094770664906, +1.0639051555900136, +1.3841582725173089, +1.5384193524603966, +1.7217073763451891, +1.4912196056724090, +1.8789834364265532, +1.5710401288495994, +1.2011548526518152, +1.6488162498049075, +1.0879231705120262, +1.6080519650022258, +1.5267616791215710, +1.6456893048832031, +1.1271814230168351, +1.6920083545104359, +1.0905921293055962, +1.7688062523975163, +1.3089969977338662, +1.0207749787905556, +1.9751849549001361, +1.8278949389025243, +1.7837713425789921, +1.4019979189851224, +1.2961950396726625, +1.7875821848070190, +1.9021185647232972, +1.7290657841362513, +1.6440876478762130, +1.2363173999599506, +1.1942242792453477, +1.8649125592865361, +1.8846690787420748, +1.9505694618808864, +1.2627565075257356, +1.3904966642675878, +1.6109149851710982, +1.3829129364620443, +1.4497763069451761, +1.7558343206050373, +1.6031586403819040, +0.11102230246251565E-15, +0.77715611723760958E-15, -0.55511151231257827E-15, +0.55511151231257827E-15, +0.44408920985006262E-15, +0.55511151231257827E-15, +0.66613381477509392E-15, +0.66613381477509392E-15, +0.44408920985006262E-15, +0.77715611723760958E-15, +0.11102230246251565E-15

487reltol = sqrt(epsilon(1._TKC))

488reltol

489+0.14901161193847656E-7

490isClose(data, atad(1:size(data)), reltol = reltol)

491T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

492call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

493

494lenData = getUnifRand(5, 100)

495lenData

496+75

497data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

498data

499+1.55741910614216847299490552377716212, +1.20566434183572034800979841654360863, +1.66189928146411762157189959686606150, +1.11266339290749414539735966925341077, +1.51364021726591434602786138268899331, +1.96316359882763937846225147456342468, +1.28204820126897578221425104964629529, +1.00973933755375724265176214213111079, +1.77327896570295492445301912007628850, +1.09451127623511122632232882314212623, +1.64961881190891256192601322981728699, +1.18633330660721672287302733317646210, +1.35160515166777084253933563344271621, +1.41368033830654946385220314579749236, +1.50132566532078320716714070555178197, +1.56213772388714130369113198305874288, +1.35518248385007249414623244449830359, +1.63465485439716044821585973102409003, +1.68306982699919325894290543895589050, +1.17599733683249483796321380230381633, +1.52929551353472363990935407028515616, +1.95540692172308655983024217317292213, +1.39782451412990306880390305890196734, +1.83336158704067882901905313555349893, +1.07812560463033426356996657565187543, +1.75498940699747642573528138001960403, +1.76982312674878625838427885576451111, +1.15738321774138877599632307812408216, +1.82863141452492116951006105985172944, +1.91976683363181387665509970894525816, +1.11666472148247324582773952521073290, +1.67621225511482873777450717203469332, +1.11871056126254643818812170196555276, +1.30314623994021650994232995282525927, +1.94856549028457301637169884113201344, +1.10613645519410509681643868802825021, +1.83388014073995923692333329150668146, +1.64398260300675911406192255189047657, +1.96357915408812009080386842681301110, +1.21795589214544955377900217085817933, +1.83116465570709561518599833697963164, +1.09066953349917868726009786390338147, +1.75198549383182000522841788531362550, +1.66047591811304253669886307066387542, +1.70029348082156551513585808999654363, +1.87089052248050578187081728365233188, +1.95271333528084905775492070024794637, +1.55612371570772572611579537354687257, +1.52570139110340647290182676550040247, +1.03849552401490358432999223641055692, +1.92059246616022254524777852923844526, +1.98593907379144812861788253137140361, +1.10836511510733563006570887661256496, +1.05923756457248003714983116241713271, +1.06233456789836876720951436836040120, +1.65704084441137893097899802048016898, +1.85278850273545944892118422638397630, +1.64206925790718787386808693179982076, +1.58680719914719910404815649865696668, +1.33854542670247767129668671493854558, +1.85095215827046832240625613725598356, +1.02433195265511926309347286119739382, +1.78575215371338347421666702043535321, +1.04152676611789965463781278527596258, +1.87578947043455684805374915456701873, +1.73269604193973240067067195419674816, +1.56419233854982764289172878186224410, +1.34030367525747572796111510161867002, +1.00453240587920947294257269756449342, +1.09599834645252292684284209124055380, +1.66096249538603082630418726376206927, +1.90397605565081041710666814233082239, +1.42999098218627767401370938680356295, +1.45781188268089944067299769350546069, +1.85517292145602856750345072006939668

500

501atad = getFFTI(getFFTF(data))

502atad

503+1.55741910614216847299490552377716212, +1.20566434183572034800979841654360863, +1.66189928146411762157189959686606189, +1.11266339290749414539735966925341097, +1.51364021726591434602786138268899331, +1.96316359882763937846225147456342507, +1.28204820126897578221425104964629529, +1.00973933755375724265176214213111079, +1.77327896570295492445301912007628946, +1.09451127623511122632232882314212604, +1.64961881190891256192601322981728737, +1.18633330660721672287302733317646210, +1.35160515166777084253933563344271678, +1.41368033830654946385220314579749217, +1.50132566532078320716714070555178254, +1.56213772388714130369113198305874327, +1.35518248385007249414623244449830398, +1.63465485439716044821585973102409003, +1.68306982699919325894290543895589089, +1.17599733683249483796321380230381672, +1.52929551353472363990935407028515616, +1.95540692172308655983024217317292175, +1.39782451412990306880390305890196734, +1.83336158704067882901905313555349893, +1.07812560463033426356996657565187562, +1.75498940699747642573528138001960423, +1.76982312674878625838427885576451130, +1.15738321774138877599632307812408216, +1.82863141452492116951006105985173001, +1.91976683363181387665509970894525816, +1.11666472148247324582773952521073290, +1.67621225511482873777450717203469371, +1.11871056126254643818812170196555276, +1.30314623994021650994232995282525889, +1.94856549028457301637169884113201382, +1.10613645519410509681643868802825021, +1.83388014073995923692333329150668185, +1.64398260300675911406192255189047638, +1.96357915408812009080386842681301090, +1.21795589214544955377900217085817894, +1.83116465570709561518599833697963222, +1.09066953349917868726009786390338108, +1.75198549383182000522841788531362569, +1.66047591811304253669886307066387581, +1.70029348082156551513585808999654401, +1.87089052248050578187081728365233188, +1.95271333528084905775492070024794637, +1.55612371570772572611579537354687296, +1.52570139110340647290182676550040286, +1.03849552401490358432999223641055653, +1.92059246616022254524777852923844564, +1.98593907379144812861788253137140380, +1.10836511510733563006570887661256515, +1.05923756457248003714983116241713213, +1.06233456789836876720951436836040159, +1.65704084441137893097899802048016859, +1.85278850273545944892118422638397649, +1.64206925790718787386808693179982076, +1.58680719914719910404815649865696648, +1.33854542670247767129668671493854577, +1.85095215827046832240625613725598394, +1.02433195265511926309347286119739362, +1.78575215371338347421666702043535340, +1.04152676611789965463781278527596296, +1.87578947043455684805374915456701854, +1.73269604193973240067067195419674816, +1.56419233854982764289172878186224429, +1.34030367525747572796111510161867021, +1.00453240587920947294257269756449381, +1.09599834645252292684284209124055399, +1.66096249538603082630418726376206927, +1.90397605565081041710666814233082239, +1.42999098218627767401370938680356295, +1.45781188268089944067299769350546126, +1.85517292145602856750345072006939611, +0.00000000000000000000000000000000000, -0.288889491658085377958396691387739098E-33, +0.962964972193617926527988971292463659E-34, -0.288889491658085377958396691387739098E-33, +0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34, +0.00000000000000000000000000000000000, +0.192592994438723585305597794258492732E-33, +0.962964972193617926527988971292463659E-34, +0.962964972193617926527988971292463659E-34, +0.577778983316170755916793382775478196E-33, +0.288889491658085377958396691387739098E-33, +0.385185988877447170611195588516985464E-33, -0.288889491658085377958396691387739098E-33, -0.481482486096808963263994485646231830E-33, -0.192592994438723585305597794258492732E-33, +0.192592994438723585305597794258492732E-33, -0.192592994438723585305597794258492732E-33, -0.962964972193617926527988971292463659E-34, +0.192592994438723585305597794258492732E-33, -0.192592994438723585305597794258492732E-33, -0.962964972193617926527988971292463659E-34, +0.962964972193617926527988971292463659E-34, +0.192592994438723585305597794258492732E-33, +0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34, +0.674075480535532548569592279904724561E-33, +0.00000000000000000000000000000000000, +0.288889491658085377958396691387739098E-33, -0.192592994438723585305597794258492732E-33, -0.288889491658085377958396691387739098E-33, -0.577778983316170755916793382775478196E-33, +0.962964972193617926527988971292463659E-34, -0.288889491658085377958396691387739098E-33, +0.288889491658085377958396691387739098E-33, -0.962964972193617926527988971292463659E-34, +0.00000000000000000000000000000000000, -0.962964972193617926527988971292463659E-34, +0.192592994438723585305597794258492732E-33, +0.962964972193617926527988971292463659E-34, +0.288889491658085377958396691387739098E-33, -0.192592994438723585305597794258492732E-33, +0.288889491658085377958396691387739098E-33, +0.00000000000000000000000000000000000, +0.577778983316170755916793382775478196E-33, +0.192592994438723585305597794258492732E-33, -0.288889491658085377958396691387739098E-33, -0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000, -0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000, -0.192592994438723585305597794258492732E-33

504reltol = sqrt(epsilon(1._TKC))

505reltol

506+0.138777878078144567552953958511352539E-16

507isClose(data, atad(1:size(data)), reltol = reltol)

508T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

509call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))

510

511

Test:: test_pm_fftnr

Final Remarks ⛓

If you believe this algorithm or its documentation can be improved, we appreciate your contribution and help to edit this page's documentation and source file on GitHub.
For details on the naming abbreviations, see this page.
For details on the naming conventions, see this page.
This software is distributed under the MIT license with additional terms outlined below.

If you use any parts or concepts from this library to any extent, please acknowledge the usage by citing the relevant publications of the ParaMonte library.
If you regenerate any parts/ideas from this library in a programming environment other than those currently supported by this ParaMonte library (i.e., other than C, C++, Fortran, MATLAB, Python, R), please also ask the end users to cite this original ParaMonte library.

This software is available to the public under a highly permissive license.
Help us justify its continued development and maintenance by acknowledging its benefit to society, distributing it, and contributing to it.

Copyright: Computational Data Science Lab

Author:: Fatemeh Bagheri, Tuesday 11:34 PM, August 10, 2021, Dallas, TX

Definition at line 250 of file pm_fftnr.F90.

The documentation for this interface was generated from the following file:

src/fortran/main/pm_fftnr.F90